(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 12.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    527653,      14560]
NotebookOptionsPosition[    512998,      14355]
NotebookOutlinePosition[    513572,      14377]
CellTagsIndexPosition[    513529,      14374]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}]], "Input",
 CellLabel->"In[1]:=",ExpressionUUID->"c0be6d88-91ce-472b-98ee-081d4b655703"],

Cell[CellGroupData[{

Cell["Essential Functions", "Subtitle",
 CellChangeTimes->{{3.865405373183199*^9, 
  3.865405377012122*^9}},ExpressionUUID->"9382a723-e395-4f84-b6f3-\
c4a7717ac855"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[Gamma]", " ", "=", "0.2"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"\[Lambda]", "=", "50"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"TOL", "=", "10000"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"TT", "=", "0.5"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"cel", "=", "1"}], ";"}]}], "Input",
 CellLabel->"In[2]:=",ExpressionUUID->"4b43a100-a61b-4c3f-91f8-27f51f7e625d"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"SetDirectory", "[", 
   RowBox[{"NotebookDirectory", "[", "]"}], "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"tempfile16", "=", 
   RowBox[{"FileNameJoin", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directory", "[", "]"}], ",", "\"\<modules\>\"", ",", 
      "\"\<Lorentzian.wdx\>\""}], "}"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"tempfile13", "=", 
   RowBox[{"FileNameJoin", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directory", "[", "]"}], ",", "\"\<modules\>\"", ",", 
      "\"\<vertice.wdx\>\""}], "}"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"tempfile14", "=", 
   RowBox[{"FileNameJoin", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directory", "[", "]"}], ",", "\"\<modules\>\"", ",", 
      "\"\<Deficient.wdx\>\""}], "}"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"tempfile17", "=", 
   RowBox[{"FileNameJoin", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directory", "[", "]"}], ",", "\"\<data\>\"", ",", 
      "\"\<vmax.wl\>\""}], "}"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"tempfile18", "=", 
    RowBox[{"FileNameJoin", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Directory", "[", "]"}], ",", "\"\<modules\>\"", ",", 
       "\"\<Boundary.wdx\>\""}], "}"}], "]"}]}], ";"}], "\n"}], "\n", 
 RowBox[{"Get", "[", "tempfile13", "]"}], "\n", 
 RowBox[{"Get", "[", "tempfile14", "]"}], "\n", 
 RowBox[{"Get", "[", "tempfile16", "]"}], "\n", 
 RowBox[{"Get", "[", "tempfile17", "]"}], "\n", 
 RowBox[{
  RowBox[{"Get", "[", "tempfile18", "]"}], "\n", 
  RowBox[{"(*", 
   RowBox[{"ccr", "=", 
    RowBox[{"{", 
     RowBox[{
     "13.597198807962943`", ",", "34.86750511573782`", ",", 
      "14.368758638002316`"}], "}"}]}], "*)"}], "\n", 
  RowBox[{"(*", 
   RowBox[{"ccr", "=", 
    RowBox[{"{", 
     RowBox[{
     "13.107432461134675`", ",", "33.84127994949433`", ",", 
      "16.14908263918081`"}], "}"}]}], "*)"}]}], "\n", 
 RowBox[{"ccr", "=", 
  RowBox[{"{", 
   RowBox[{
   "12.842108228341`", ",", "33.33192391213714`", ",", 
    "17.105431193445618`"}], "}"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"tempfile6", "=", 
    RowBox[{"FileNameJoin", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Directory", "[", "]"}], ",", "\"\<modules\>\"", ",", 
       RowBox[{
        RowBox[{"ToString", "[", "\[Lambda]", "]"}], "<>", "\"\<-\>\"", "<>", 
        RowBox[{"ToString", "[", "ccr", "]"}], "<>", "\"\<-\>\"", "<>", 
        "\"\<core.mx\>\""}]}], "}"}], "]"}]}], ";"}], "\n"}], "\n"}], "Input",
 CellChangeTimes->{{3.865405753292833*^9, 3.865405767784689*^9}},
 CellLabel->"In[7]:=",ExpressionUUID->"274cd695-4084-42d6-b863-aaa5e489b8a0"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "12.842108228341`", ",", "33.33192391213714`", ",", "17.105431193445618`"}],
   "}"}]], "Output",
 CellChangeTimes->{3.865405676315649*^9, 3.865405808065709*^9, 
  3.8654064387041316`*^9},
 CellLabel->"Out[18]=",ExpressionUUID->"8fc30ac8-8a2d-4025-97d1-ccd7f07c837e"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"{", 
   RowBox[{
   "13.597198807962943`", ",", "34.86750511573782`", ",", 
    "14.368758638002316`"}], "}"}], "*)"}]], "Input",
 CellLabel->"In[20]:=",ExpressionUUID->"9dadc53f-6350-4dab-8144-9d8da911c87b"],

Cell[BoxData[""], "Input",
 CellLabel->"In[21]:=",ExpressionUUID->"b8fd6ce5-3dc8-4920-9659-d61066903f2a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"LogM", "[", 
   RowBox[{"z_", ",", 
    RowBox[{"\[Sigma]_", ":", "0"}]}], "]"}], ":=", 
  RowBox[{
   RowBox[{"Log", "[", 
    RowBox[{"z", " ", 
     RowBox[{"Exp", "[", 
      RowBox[{
       RowBox[{"-", "I"}], "*", 
       RowBox[{"(", 
        RowBox[{"\[Sigma]", "*", "Pi"}], ")"}]}], "]"}]}], "]"}], "+", 
   RowBox[{"I", "*", "\[Sigma]", "*", "Pi"}]}]}]], "Input",
 CellLabel->"In[22]:=",ExpressionUUID->"907e61de-fbcb-4e5c-b3de-23f4f95ac86b"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"ccr", "=", 
    RowBox[{"{", 
     RowBox[{"10.57036", ",", "29.64435", ",", "10.51941"}], "}"}]}], ";"}], 
  "*)"}]], "Input",
 CellLabel->"In[23]:=",ExpressionUUID->"118b8d52-c275-466b-8c80-fc3fada3a6c3"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"asd", "=", 
    RowBox[{"Vertices", "[", 
     RowBox[{"vid", ",", "Sid", ",", "Vertex", ",", 
      RowBox[{"Sqrt", "[", 
       RowBox[{"ccr", "[", 
        RowBox[{"[", "1", "]"}], "]"}], "]"}], ",", 
      RowBox[{"Sqrt", "[", 
       RowBox[{"ccr", "[", 
        RowBox[{"[", "2", "]"}], "]"}], "]"}], ",", 
      RowBox[{"Sqrt", "[", 
       RowBox[{"ccr", "[", 
        RowBox[{"[", "3", "]"}], "]"}], "]"}]}], "]"}]}], ";"}], "//", 
  "Quiet"}]], "Input",
 CellLabel->"In[24]:=",ExpressionUUID->"760e8c1d-b848-45b5-b854-9af5c403d9d5"],

Cell[BoxData[
 RowBox[{
  RowBox[{"CrTest1", "[", 
   RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"c1", ",", "c2", ",", "a", ",", "b"}], "}"}], ",", "\n", 
    RowBox[{
     RowBox[{"a", "=", 
      RowBox[{
       RowBox[{"Position", "[", 
        RowBox[{"Sid", ",", "x"}], "]"}], "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "1"}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"b", "=", 
      RowBox[{
       RowBox[{"Position", "[", 
        RowBox[{"Sid", ",", "y"}], "]"}], "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "1"}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"c1", "=", 
      RowBox[{
       RowBox[{
        RowBox[{"ConjugateTranspose", "[", 
         RowBox[{"gv", "[", 
          RowBox[{"[", 
           RowBox[{"a", ",", "y"}], "]"}], "]"}], "]"}], " ", ".", " ", 
        RowBox[{"zv", "[", 
         RowBox[{"[", 
          RowBox[{"a", ",", "y", ",", "z"}], "]"}], "]"}]}], "/", 
       RowBox[{"Norm", "[", 
        RowBox[{
         RowBox[{"ConjugateTranspose", "[", 
          RowBox[{"gv", "[", 
           RowBox[{"[", 
            RowBox[{"a", ",", "y"}], "]"}], "]"}], "]"}], " ", ".", " ", 
         RowBox[{"zv", "[", 
          RowBox[{"[", 
           RowBox[{"a", ",", "y", ",", "z"}], "]"}], "]"}]}], "]"}]}]}], ";", 
     "\n", 
     RowBox[{"c2", "=", 
      RowBox[{
       RowBox[{
        RowBox[{"ConjugateTranspose", "[", 
         RowBox[{"gv", "[", 
          RowBox[{"[", 
           RowBox[{"b", ",", "x"}], "]"}], "]"}], "]"}], " ", ".", " ", 
        RowBox[{"zv", "[", 
         RowBox[{"[", 
          RowBox[{"b", ",", "x", ",", "z"}], "]"}], "]"}]}], "/", 
       RowBox[{"Norm", "[", 
        RowBox[{
         RowBox[{"ConjugateTranspose", "[", 
          RowBox[{"gv", "[", 
           RowBox[{"[", 
            RowBox[{"b", ",", "x"}], "]"}], "]"}], "]"}], " ", ".", " ", 
         RowBox[{"zv", "[", 
          RowBox[{"[", 
           RowBox[{"b", ",", "x", ",", "z"}], "]"}], "]"}]}], "]"}]}]}], ";", 
     "\n", 
     RowBox[{"If", "[", "\n", 
      RowBox[{
       RowBox[{
        RowBox[{"Abs", "[", 
         RowBox[{"c2", "[", 
          RowBox[{"[", "2", "]"}], "]"}], "]"}], "<", 
        RowBox[{"10", "^", 
         RowBox[{"-", "14"}]}]}], ",", "\n", 
       RowBox[{
        RowBox[{"Abs", "[", 
         RowBox[{
          RowBox[{"c1", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "/", 
          RowBox[{"c2", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "-", "1"}], ",", "\n", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Abs", "[", 
           RowBox[{"c2", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "]"}], "<", 
          RowBox[{"10", "^", 
           RowBox[{"-", "14"}]}]}], ",", "\n", 
         RowBox[{
          RowBox[{"Abs", "[", 
           RowBox[{
            RowBox[{"c1", "[", 
             RowBox[{"[", "2", "]"}], "]"}], "/", 
            RowBox[{"c2", "[", 
             RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "-", "1"}], ",", "\n", 
         RowBox[{
          RowBox[{
           RowBox[{"c1", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "/", 
           RowBox[{"c2", "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], "-", 
          RowBox[{
           RowBox[{"c1", "[", 
            RowBox[{"[", "2", "]"}], "]"}], "/", 
           RowBox[{"c2", "[", 
            RowBox[{"[", "2", "]"}], "]"}]}]}]}], "\n", "]"}]}], "\n", 
      "]"}]}]}], "\n", "]"}]}]], "Input",
 CellLabel->"In[25]:=",ExpressionUUID->"75af1671-c6c6-45f3-8a8f-37d7c4b7210b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"CrTests2", "[", 
   RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"gv", "[", 
      RowBox[{"[", 
       RowBox[{"x", ",", "y"}], "]"}], "]"}], " ", ".", " ", 
     RowBox[{"ConjugateTranspose", "[", 
      RowBox[{"gv", "[", 
       RowBox[{"[", 
        RowBox[{"x", ",", "y"}], "]"}], "]"}], "]"}], " ", ".", " ", 
     RowBox[{"zv", "[", 
      RowBox[{"[", 
       RowBox[{"x", ",", "y", ",", "z"}], "]"}], "]"}]}], "/", 
    RowBox[{
     RowBox[{"Norm", "[", 
      RowBox[{
       RowBox[{"ConjugateTranspose", "[", 
        RowBox[{"gv", "[", 
         RowBox[{"[", 
          RowBox[{"x", ",", "y"}], "]"}], "]"}], "]"}], " ", ".", " ", 
       RowBox[{"zv", "[", 
        RowBox[{"[", 
         RowBox[{"x", ",", "y", ",", "z"}], "]"}], "]"}]}], "]"}], "^", 
     "2"}]}], "-", 
   RowBox[{
    RowBox[{
     RowBox[{"gv", "[", 
      RowBox[{"[", 
       RowBox[{"x", ",", "z"}], "]"}], "]"}], " ", ".", " ", 
     RowBox[{"ConjugateTranspose", "[", 
      RowBox[{"gv", "[", 
       RowBox[{"[", 
        RowBox[{"x", ",", "z"}], "]"}], "]"}], "]"}], " ", ".", " ", 
     RowBox[{"zv", "[", 
      RowBox[{"[", 
       RowBox[{"x", ",", "z", ",", "y"}], "]"}], "]"}]}], "/", 
    RowBox[{
     RowBox[{"Norm", "[", 
      RowBox[{
       RowBox[{"ConjugateTranspose", "[", 
        RowBox[{"gv", "[", 
         RowBox[{"[", 
          RowBox[{"x", ",", "z"}], "]"}], "]"}], "]"}], " ", ".", " ", 
       RowBox[{"zv", "[", 
        RowBox[{"[", 
         RowBox[{"x", ",", "z", ",", "y"}], "]"}], "]"}]}], "]"}], "^", 
     "2"}]}]}]}]], "Input",
 CellLabel->"In[26]:=",ExpressionUUID->"518cab49-4b7c-4fce-9ebc-3c3611ba7529"],

Cell[BoxData[
 RowBox[{
  RowBox[{"CrTests3", "[", 
   RowBox[{"x_", ",", "y_"}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "c1", ",", "c2", ",", "c3", ",", "c4", ",", "z", ",", "n1", ",", "n2", 
      ",", "n3", ",", "n4", ",", "xp"}], "}"}], ",", "\n", 
    RowBox[{
     RowBox[{"z", "=", 
      RowBox[{"Sort", "[", 
       RowBox[{"vid", "/.", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"x", "->", "Nothing"}], ",", 
          RowBox[{"y", "->", "Nothing"}]}], "}"}]}], "]"}]}], ";", "\n", 
     RowBox[{"xp", "=", 
      RowBox[{
       RowBox[{"Position", "[", 
        RowBox[{"Sid", ",", "x"}], "]"}], "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "1"}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"c1", "=", 
      RowBox[{
       RowBox[{"ConjugateTranspose", "[", 
        RowBox[{"gv", "[", 
         RowBox[{"[", 
          RowBox[{"xp", ",", "y"}], "]"}], "]"}], "]"}], " ", ".", " ", 
       RowBox[{"zv", "[", 
        RowBox[{"[", 
         RowBox[{"xp", ",", "y", ",", 
          RowBox[{"z", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "]"}]}]}], ";", "\n", 
     RowBox[{"c2", "=", 
      RowBox[{
       RowBox[{"ConjugateTranspose", "[", 
        RowBox[{"gv", "[", 
         RowBox[{"[", 
          RowBox[{"xp", ",", "y"}], "]"}], "]"}], "]"}], " ", ".", " ", 
       RowBox[{"zv", "[", 
        RowBox[{"[", 
         RowBox[{"xp", ",", "y", ",", 
          RowBox[{"z", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "]"}]}]}], ";", "\n", 
     RowBox[{"c3", "=", 
      RowBox[{
       RowBox[{"ConjugateTranspose", "[", 
        RowBox[{"gv", "[", 
         RowBox[{"[", 
          RowBox[{"xp", ",", "y"}], "]"}], "]"}], "]"}], " ", ".", " ", 
       RowBox[{"zv", "[", 
        RowBox[{"[", 
         RowBox[{"xp", ",", "y", ",", 
          RowBox[{"z", "[", 
           RowBox[{"[", "3", "]"}], "]"}]}], "]"}], "]"}]}]}], ";", "\n", 
     RowBox[{"c4", "=", 
      RowBox[{
       RowBox[{"ConjugateTranspose", "[", 
        RowBox[{"gv", "[", 
         RowBox[{"[", 
          RowBox[{"xp", ",", "y"}], "]"}], "]"}], "]"}], " ", ".", " ", 
       RowBox[{"zv", "[", 
        RowBox[{"[", 
         RowBox[{"xp", ",", "y", ",", 
          RowBox[{"z", "[", 
           RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "]"}]}]}], ";", "\n", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"{", 
         RowBox[{"1", ",", 
          RowBox[{"-", "1"}], ",", "1", ",", 
          RowBox[{"-", "1"}]}], "}"}], "*", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"arv", "[", 
           RowBox[{"[", 
            RowBox[{"xp", ",", "y", ",", 
             RowBox[{"z", "[", 
              RowBox[{"[", "xs", "]"}], "]"}]}], "]"}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"xs", ",", "1", ",", "4"}], "}"}]}], "]"}], "*", 
        RowBox[{"Map", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"Table", "[", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"Conjugate", "[", "#", "]"}], " ", ".", " ", 
               RowBox[{"PauliMatrix", "[", "xs", "]"}], " ", ".", " ", "#"}], 
              "/", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"Norm", "[", "#", "]"}], "^", "2"}], ")"}]}], ",", 
             RowBox[{"{", 
              RowBox[{"xs", ",", "1", ",", "3"}], "}"}]}], "]"}], "&"}], ",", 
          RowBox[{"{", 
           RowBox[{"c1", ",", "c2", ",", "c3", ",", "c4"}], "}"}]}], "]"}]}], 
       "//", "Total"}], "//", "Norm"}]}]}], "\n", "\n", "]"}]}]], "Input",
 CellLabel->"In[27]:=",ExpressionUUID->"64d3af29-f7ba-4eb2-85eb-c28c7f14a666"],

Cell[BoxData[
 RowBox[{
  RowBox[{"TestSpin", "[", "a_", "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"na", ",", 
      RowBox[{"ca", "=", 
       RowBox[{"Chop", "[", 
        RowBox[{"a", ",", 
         RowBox[{"10", "^", 
          RowBox[{"(", 
           RowBox[{"-", "13"}], ")"}]}]}], "]"}]}]}], "}"}], ",", "\n", 
    RowBox[{
     RowBox[{"na", "=", 
      RowBox[{"Norm", "[", "ca", "]"}]}], ";", "\n", 
     RowBox[{"Piecewise", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2", ",", 
          RowBox[{
           RowBox[{"ca", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "!=", "0"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", 
          RowBox[{"na", "==", "0"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1", ",", 
          RowBox[{
           RowBox[{
            RowBox[{"ca", "[", 
             RowBox[{"[", "1", "]"}], "]"}], "==", "0"}], "&&", 
           RowBox[{"na", "!=", "0"}]}]}], "}"}]}], "}"}], "]"}]}]}], "\n", 
   "]"}]}]], "Input",
 CellLabel->"In[28]:=",ExpressionUUID->"1be88d58-a459-4710-bcff-eefa9f7306f9"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"MEXP", "[", 
    RowBox[{"x_", ",", "y_"}], "]"}], ":=", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"z1", ",", "z2", ",", "z3", ",", "out"}], "}"}], ",", "\n", 
     RowBox[{
      RowBox[{"z1", "=", 
       RowBox[{"1", "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"x", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "+", 
           RowBox[{"I", "*", 
            RowBox[{"y", "[", 
             RowBox[{"[", "1", "]"}], "]"}]}]}], ")"}], "/", 
         RowBox[{"Sqrt", "[", "2", "]"}]}]}]}], ";", "\n", 
      RowBox[{"z2", "=", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"x", "[", 
           RowBox[{"[", "2", "]"}], "]"}], "+", 
          RowBox[{"I", "*", 
           RowBox[{"y", "[", 
            RowBox[{"[", "2", "]"}], "]"}]}]}], ")"}], "/", 
        RowBox[{"Sqrt", "[", "2", "]"}]}]}], ";", "\n", 
      RowBox[{"z3", "=", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"x", "[", 
           RowBox[{"[", "3", "]"}], "]"}], "+", 
          RowBox[{"I", "*", 
           RowBox[{"y", "[", 
            RowBox[{"[", "3", "]"}], "]"}]}]}], ")"}], "/", 
        RowBox[{"Sqrt", "[", "2", "]"}]}]}], ";", "\n", 
      RowBox[{"out", "=", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"z1", ",", "z2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"z3", ",", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"1", "+", 
              RowBox[{"z2", " ", "z3"}]}], ")"}], "/", "z1"}]}], "}"}]}], 
        "}"}]}]}]}], "\n", "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"ZEXP", "[", 
    RowBox[{"x_", ",", "y_"}], "]"}], ":=", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"z1", ",", "z2"}], "}"}], ",", "\n", 
     RowBox[{
      RowBox[{"z1", "=", 
       RowBox[{"1", "/", 
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{"x", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], ")"}]}]}], ";", "\n", 
      RowBox[{"z2", "=", 
       RowBox[{
        RowBox[{"x", "[", 
         RowBox[{"[", "2", "]"}], "]"}], "+", 
        RowBox[{"I", " ", 
         RowBox[{"y", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}]}]}], ";", "\n", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"z1", ",", "z2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", 
          RowBox[{"1", "+", 
           RowBox[{"x", "[", 
            RowBox[{"[", "1", "]"}], "]"}]}]}], "}"}]}], "}"}]}]}], "\n", 
    "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"MCEXP", "[", 
    RowBox[{"x_", ",", "y_"}], "]"}], ":=", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"z1", ",", "z2", ",", "z3", ",", "out"}], "}"}], ",", "\n", 
     RowBox[{
      RowBox[{"z1", "=", 
       RowBox[{"1", "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"x", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "-", 
           RowBox[{"I", "*", 
            RowBox[{"y", "[", 
             RowBox[{"[", "1", "]"}], "]"}]}]}], ")"}], "/", 
         RowBox[{"Sqrt", "[", "2", "]"}]}]}]}], ";", "\n", 
      RowBox[{"z2", "=", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"x", "[", 
           RowBox[{"[", "2", "]"}], "]"}], "-", 
          RowBox[{"I", "*", 
           RowBox[{"y", "[", 
            RowBox[{"[", "2", "]"}], "]"}]}]}], ")"}], "/", 
        RowBox[{"Sqrt", "[", "2", "]"}]}]}], ";", "\n", 
      RowBox[{"z3", "=", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"x", "[", 
           RowBox[{"[", "3", "]"}], "]"}], "-", 
          RowBox[{"I", "*", 
           RowBox[{"y", "[", 
            RowBox[{"[", "3", "]"}], "]"}]}]}], ")"}], "/", 
        RowBox[{"Sqrt", "[", "2", "]"}]}]}], ";", "\n", 
      RowBox[{"out", "=", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"z1", ",", "z2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"z3", ",", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"1", "+", 
              RowBox[{"z2", " ", "z3"}]}], ")"}], "/", "z1"}]}], "}"}]}], 
        "}"}]}]}]}], "\n", "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"ZCEXP", "[", 
   RowBox[{"x_", ",", "y_"}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"z1", ",", "z2"}], "}"}], ",", "\n", 
    RowBox[{
     RowBox[{"z1", "=", 
      RowBox[{"1", "/", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{"x", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], ")"}]}]}], ";", "\n", 
     RowBox[{"z2", "=", 
      RowBox[{
       RowBox[{"x", "[", 
        RowBox[{"[", "2", "]"}], "]"}], "-", 
       RowBox[{"I", " ", 
        RowBox[{"y", "[", 
         RowBox[{"[", "1", "]"}], "]"}]}]}]}], ";", "\n", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"z1", ",", "z2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", 
         RowBox[{"1", "+", 
          RowBox[{"x", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}]}], "}"}]}], "}"}]}]}], "\n", 
   "]"}]}], "\n", 
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"ZV", "[", 
     RowBox[{"z_", ",", "x_"}], "]"}], ":=", 
    RowBox[{
     RowBox[{
      RowBox[{"{", 
       RowBox[{"1", ",", 
        RowBox[{
         RowBox[{"z", "[", 
          RowBox[{"[", "2", "]"}], "]"}], "+", 
         RowBox[{"x", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "+", " ", 
         RowBox[{"I", " ", 
          RowBox[{"x", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}]}]}], "}"}], "\n", 
      RowBox[{"CZV", "[", 
       RowBox[{"z_", ",", "x_"}], "]"}]}], ":=", 
     RowBox[{"{", 
      RowBox[{"1", ",", 
       RowBox[{
        RowBox[{"Conjugate", "[", 
         RowBox[{"z", "[", 
          RowBox[{"[", "2", "]"}], "]"}], "]"}], "+", 
        RowBox[{"x", "[", 
         RowBox[{"[", "1", "]"}], "]"}], "-", " ", 
        RowBox[{"I", " ", 
         RowBox[{"x", "[", 
          RowBox[{"[", "2", "]"}], "]"}]}]}]}], "}"}]}]}], "*)"}]}]}], "Input",
 CellLabel->"In[29]:=",ExpressionUUID->"d54a493d-9a76-4ce1-89fd-57b3332b7040"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"ZV", "[", 
   RowBox[{"z_", ",", "x_"}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", "\n", 
     RowBox[{"t1", "=", 
      RowBox[{"TestSpin", "[", "z", "]"}]}], "\n", "}"}], ",", "\n", 
    RowBox[{"Switch", "[", 
     RowBox[{"t1", ",", "2", ",", 
      RowBox[{"{", 
       RowBox[{"1", ",", 
        RowBox[{
         RowBox[{"z", "[", 
          RowBox[{"[", "2", "]"}], "]"}], "+", 
         RowBox[{"x", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "+", " ", 
         RowBox[{"I", " ", 
          RowBox[{"x", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}]}]}], "}"}], ",", "1", ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"z", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "+", 
         RowBox[{"x", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "+", " ", 
         RowBox[{"I", " ", 
          RowBox[{"x", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}]}], ",", 
        RowBox[{"z", "[", 
         RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", "0", ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0"}], "}"}]}], "]"}]}], "\n", "]"}]}], "\n", 
 RowBox[{
  RowBox[{"CZV", "[", 
   RowBox[{"z_", ",", "x_"}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", "\n", 
     RowBox[{"t1", "=", 
      RowBox[{"TestSpin", "[", "z", "]"}]}], "\n", "}"}], ",", "\n", 
    RowBox[{"Switch", "[", 
     RowBox[{"t1", ",", "2", ",", 
      RowBox[{"{", 
       RowBox[{"1", ",", 
        RowBox[{
         RowBox[{"Conjugate", "[", 
          RowBox[{"z", "[", 
           RowBox[{"[", "2", "]"}], "]"}], "]"}], "+", 
         RowBox[{"x", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "-", " ", 
         RowBox[{"I", " ", 
          RowBox[{"x", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}]}]}], "}"}], ",", "1", ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"Conjugate", "[", 
          RowBox[{"z", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "]"}], "+", 
         RowBox[{"x", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "-", " ", 
         RowBox[{"I", " ", 
          RowBox[{"x", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}]}], ",", 
        RowBox[{"z", "[", 
         RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", "0", ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0"}], "}"}]}], "]"}]}], "\n", "]"}]}]}], "Input",
 CellLabel->"In[33]:=",ExpressionUUID->"0cdb4b88-cf2a-49bf-a212-7cc047903551"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"GG", "[", "x_", "]"}], ":=", 
   RowBox[{"If", "[", "\n", 
    RowBox[{
     RowBox[{
      RowBox[{"Length", "[", "x", "]"}], "==", "6"}], ",", "\n", 
     RowBox[{"MEXP", "[", 
      RowBox[{
       RowBox[{"x", "[", 
        RowBox[{"[", 
         RowBox[{"1", ";;", "3"}], "]"}], "]"}], ",", 
       RowBox[{"x", "[", 
        RowBox[{"[", 
         RowBox[{"4", ";;", "6"}], "]"}], "]"}]}], "]"}], ",", "\n", 
     RowBox[{"ZEXP", "[", 
      RowBox[{
       RowBox[{"x", "[", 
        RowBox[{"[", 
         RowBox[{"1", ";;", "2"}], "]"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", "[", 
         RowBox[{"[", "3", "]"}], "]"}], "}"}]}], "]"}]}], "\n", "]"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"CGG", "[", "x_", "]"}], ":=", 
   RowBox[{"If", "[", "\n", 
    RowBox[{
     RowBox[{
      RowBox[{"Length", "[", "x", "]"}], "==", "6"}], ",", "\n", 
     RowBox[{"Transpose", "[", 
      RowBox[{"MCEXP", "[", 
       RowBox[{
        RowBox[{"x", "[", 
         RowBox[{"[", 
          RowBox[{"1", ";;", "3"}], "]"}], "]"}], ",", 
        RowBox[{"x", "[", 
         RowBox[{"[", 
          RowBox[{"4", ";;", "6"}], "]"}], "]"}]}], "]"}], "]"}], ",", "\n", 
     RowBox[{"Transpose", "[", 
      RowBox[{"ZCEXP", "[", 
       RowBox[{
        RowBox[{"x", "[", 
         RowBox[{"[", 
          RowBox[{"1", ";;", "2"}], "]"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"x", "[", 
          RowBox[{"[", "3", "]"}], "]"}], "}"}]}], "]"}], "]"}]}], "\n", 
    "]"}]}], ";"}]}], "Input",
 CellLabel->"In[35]:=",ExpressionUUID->"5baaaaa8-c7df-4831-ab39-2d348c7c366e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"SPL", "[", "AA_", "]"}], ":=", 
  RowBox[{"Join", "[", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"AA", "[", 
       RowBox[{"[", 
        RowBox[{"x", ";;", 
         RowBox[{"x", "+", "2"}]}], "]"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", "1", ",", "9", ",", "3"}], "}"}]}], "]"}], ",", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"AA", "[", 
       RowBox[{"[", 
        RowBox[{"x", ";;", 
         RowBox[{"x", "+", "5"}]}], "]"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", "10", ",", "63", ",", "6"}], "}"}]}], "]"}], ",", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"AA", "[", 
       RowBox[{"[", 
        RowBox[{"x", ";;", 
         RowBox[{"x", "+", "1"}]}], "]"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", "64", ",", "123", ",", "2"}], "}"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"{", 
      RowBox[{"AA", "[", 
       RowBox[{"[", "124", "]"}], "]"}], "}"}], "}"}]}], "]"}]}]], "Input",
 CellLabel->"In[37]:=",ExpressionUUID->"086bebd0-82a7-499f-a7d7-6558d7bd056d"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"gf", "=", 
   RowBox[{"{", 
    RowBox[{"1", ",", "5", ",", "3"}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"Tfg", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Sid", "[", 
        RowBox[{"[", "x", "]"}], "]"}], ",", 
       RowBox[{"gf", "[", 
        RowBox[{"[", "x", "]"}], "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "1", ",", "3"}], "}"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"Sfg", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Sid", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"Mod", "[", 
           RowBox[{"x", ",", "3"}], "]"}], "+", "1"}], "]"}], "]"}], ",", 
       RowBox[{"Sid", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"Mod", "[", 
           RowBox[{
            RowBox[{"x", "+", "1"}], ",", "3"}], "]"}], "+", "1"}], "]"}], 
        "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", "2"}], "}"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"kfg", "=", 
   RowBox[{"ArrayReshape", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"Map", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Sid", "[", 
             RowBox[{"[", "x", "]"}], "]"}], ",", "#"}], "}"}], "&"}], ",", 
         RowBox[{"vid", "/.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"Sid", "[", 
              RowBox[{"[", "x", "]"}], "]"}], "->", "Nothing"}], ",", 
            RowBox[{
             RowBox[{"gf", "[", 
              RowBox[{"[", "x", "]"}], "]"}], "->", "Nothing"}], ",", 
            RowBox[{
             RowBox[{"Sid", "[", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{"Mod", "[", 
                 RowBox[{"x", ",", "3"}], "]"}], "+", "1"}], "]"}], "]"}], "->",
              "Nothing"}]}], "}"}]}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "1", ",", "3"}], "}"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"9", ",", "2"}], "}"}]}], "]"}]}], ";"}]}], "Input",
 CellLabel->"In[38]:=",ExpressionUUID->"13913fa6-c1e3-4993-ab17-fe8be32bd0f5"],

Cell[BoxData[
 RowBox[{
  RowBox[{"PSD", "[", "x_", "]"}], ":=", 
  RowBox[{
   RowBox[{"Position", "[", 
    RowBox[{"Sid", ",", "x"}], "]"}], "[", 
   RowBox[{"[", 
    RowBox[{"1", ",", "1"}], "]"}], "]"}]}]], "Input",
 CellLabel->"In[42]:=",ExpressionUUID->"091734af-cee3-446e-b54b-d38c399ef6e7"],

Cell[BoxData[
 RowBox[{
  RowBox[{"EE", "=", 
   RowBox[{"{", "\n", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"6", ",", "4"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"4", ",", "6"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"4", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", "4"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", "6"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"6", ",", "2"}], "}"}]}], "}"}], ",", "\n", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"2", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", "6"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"6", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"6", ",", "1"}], "}"}]}], "}"}], ",", "\n", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"4", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"4", ",", "6"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"6", ",", "4"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"6", ",", "1"}], "}"}]}], "}"}], ",", "\n", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"4", ",", "3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"4", ",", "6"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"6", ",", "4"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"6", ",", "3"}], "}"}]}], "}"}], ",", "\n", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"6", ",", "3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"6", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", "6"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", "3"}], "}"}]}], "}"}], ",", "\n", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"6", ",", "5"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"6", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", "6"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", "5"}], "}"}]}], "}"}], ",", "\n", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"6", ",", "5"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"6", ",", "4"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"4", ",", "6"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"4", ",", "5"}], "}"}]}], "}"}], ",", "\n", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"4", ",", "3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"4", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", "4"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", "3"}], "}"}]}], "}"}], ",", "\n", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"2", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", "4"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"4", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"4", ",", "1"}], "}"}]}], "}"}], ",", "\n", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"2", ",", "5"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", "4"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"4", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"4", ",", "5"}], "}"}]}], "}"}], ",", " ", "\n", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"6", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"6", ",", "5"}], "}"}]}], "}"}], ",", "\n", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"6", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"6", ",", "3"}], "}"}]}], "}"}], ",", "\n", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"6", ",", "3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"6", ",", "5"}], "}"}]}], "}"}], ",", "\n", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"4", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"4", ",", "3"}], "}"}]}], "}"}], ",", "\n", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"4", ",", "5"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"4", ",", "3"}], "}"}]}], "}"}], ",", "\n", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"4", ",", "5"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"4", ",", "1"}], "}"}]}], "}"}], ",", "\n", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"2", ",", "3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", "5"}], "}"}]}], "}"}], ",", "\n", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"2", ",", "5"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", "1"}], "}"}]}], "}"}], ",", "\n", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"2", ",", "3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", "1"}], "}"}]}], "}"}]}], "\n", "}"}]}], 
  ";"}]], "Input",
 CellLabel->"In[43]:=",ExpressionUUID->"e566fdb9-58fe-4549-aad2-db3da3e22b2c"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"inds", "=", 
   RowBox[{"Join", "[", 
    RowBox[{
     RowBox[{"Join", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"1", ",", "2"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"3", ",", "4"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"5", ",", "6"}], "}"}]}], "}"}], "}"}], ",", 
       RowBox[{"ConstantArray", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"1", ",", "4", ",", "2", ",", "3"}], "}"}], ",", "9"}], 
        "]"}]}], "]"}], ",", 
     RowBox[{"ConstantArray", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", "2"}], "}"}], ",", "10"}], "]"}]}], "]"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"acl", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Map", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Join", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"EE", "[", 
            RowBox[{"[", "x", "]"}], "]"}], "[", 
           RowBox[{"[", "#", "]"}], "]"}], ",", 
          RowBox[{
           RowBox[{"DeleteDuplicates", "@", 
            RowBox[{"Flatten", "@", 
             RowBox[{"EE", "[", 
              RowBox[{"[", "x", "]"}], "]"}]}]}], "/.", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"#", "->", "Nothing"}], "&"}], "/@", 
             RowBox[{
              RowBox[{"EE", "[", 
               RowBox[{"[", "x", "]"}], "]"}], "[", 
              RowBox[{"[", "#", "]"}], "]"}]}], ")"}]}]}], "]"}], "&"}], ",", 
       RowBox[{"inds", "[", 
        RowBox[{"[", "x", "]"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Depth", "[", 
          RowBox[{"inds", "[", 
           RowBox[{"[", "x", "]"}], "]"}], "]"}], "-", "1"}], "}"}]}], "]"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "1", ",", 
       RowBox[{"Length", "[", "EE", "]"}]}], "}"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"zindex", "=", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"Join", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"#", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "}"}], ",", 
        RowBox[{"Sort", "[", 
         RowBox[{"#", "[", 
          RowBox[{"[", 
           RowBox[{"2", ";;", "3"}], "]"}], "]"}], "]"}]}], "]"}], "&"}], "/@", 
     RowBox[{"ArrayReshape", "[", 
      RowBox[{"acl", ",", 
       RowBox[{"{", 
        RowBox[{"60", ",", "3"}], "}"}]}], "]"}]}], "//", 
    "DeleteDuplicates"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"gindex", "=", 
   RowBox[{"Join", "[", 
    RowBox[{"Sfg", ",", "kfg"}], "]"}]}], ";"}]}], "Input",
 CellLabel->"In[44]:=",ExpressionUUID->"1b1c3a00-6e82-473d-845e-47150d01c2c2"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Action1", "[", 
   RowBox[{"Z13_", ",", "CZ13_", ",", "Z23_", ",", "CZ23_", ",", "J3_"}], 
   "]"}], ":=", 
  RowBox[{"J3", "*", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"2", 
      RowBox[{"Log", "[", 
       RowBox[{"CZ13", " ", ".", " ", "Z23"}], "]"}]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"I", " ", "\[Gamma]"}], " ", "-", "1"}], ")"}], 
      RowBox[{"Log", "[", 
       RowBox[{"CZ13", " ", ".", " ", "Z13"}], "]"}]}], "-", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"I", " ", "\[Gamma]"}], "+", "1"}], ")"}], " ", 
      RowBox[{"Log", "[", 
       RowBox[{"CZ23", " ", ".", " ", "Z23"}], "]"}]}]}], ")"}]}]}], "\n", 
 RowBox[{
  RowBox[{"Action2", "[", 
   RowBox[{
   "Z1_", ",", "CZ1_", ",", "Z2_", ",", "CZ2_", ",", "Z3_", ",", "CZ3_", ",", 
    "Z4_", ",", "CZ4_", ",", "X1_", ",", "X2_", ",", "J_"}], "]"}], ":=", 
  RowBox[{"J", "*", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"2", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Log", "[", 
         RowBox[{
          RowBox[{"Conjugate", "[", "X1", "]"}], " ", ".", " ", "Z1"}], "]"}],
         "+", 
        RowBox[{"Log", "[", 
         RowBox[{"CZ2", " ", ".", " ", "X2"}], "]"}], "+", 
        RowBox[{"Log", "[", 
         RowBox[{"CZ3", " ", ".", " ", "Z4"}], "]"}]}], ")"}]}], "-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"I", " ", "\[Gamma]"}], "+", "1"}], ")"}], 
      RowBox[{"(", " ", 
       RowBox[{
        RowBox[{"Log", "[", 
         RowBox[{"CZ1", " ", ".", " ", "Z1"}], "]"}], "+", 
        RowBox[{"Log", "[", 
         RowBox[{"CZ4", " ", ".", " ", "Z4"}], "]"}]}], ")"}]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"I", " ", "\[Gamma]"}], " ", "-", "1"}], ")"}], 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Log", "[", 
         RowBox[{"CZ2", " ", ".", " ", "Z2"}], "]"}], "+", 
        RowBox[{"Log", "[", 
         RowBox[{"CZ3", " ", ".", " ", "Z3"}], "]"}]}], ")"}]}]}], 
    ")"}]}]}], "\n", 
 RowBox[{
  RowBox[{"Action3", "[", 
   RowBox[{
   "Z1_", ",", "CZ1_", ",", "Z2_", ",", "CZ2_", ",", "X1_", ",", "X2_", ",", 
    "J_"}], "]"}], ":=", 
  RowBox[{"J", "*", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"2", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Log", "[", 
         RowBox[{
          RowBox[{"Conjugate", "[", "X1", "]"}], " ", ".", " ", "Z1"}], "]"}],
         "+", 
        RowBox[{"Log", "[", 
         RowBox[{"CZ2", " ", ".", " ", "X2"}], "]"}]}], ")"}]}], "-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"I", " ", "\[Gamma]"}], "+", "1"}], ")"}], 
      RowBox[{"(", " ", 
       RowBox[{"Log", "[", 
        RowBox[{"CZ1", " ", ".", " ", "Z1"}], "]"}], ")"}]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"I", " ", "\[Gamma]"}], " ", "-", "1"}], ")"}], 
      RowBox[{"(", 
       RowBox[{"Log", "[", 
        RowBox[{"CZ2", " ", ".", " ", "Z2"}], "]"}], ")"}]}]}], 
    ")"}]}]}], "\n", 
 RowBox[{
  RowBox[{"Action4", "[", 
   RowBox[{
   "Z1_", ",", "CZ1_", ",", "Z2_", ",", "CZ2_", ",", "X1_", ",", "X2_", ",", 
    "J_"}], "]"}], ":=", 
  RowBox[{"J", "*", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"2", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"LogM", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"Conjugate", "[", "X1", "]"}], " ", ".", " ", "Z1"}], ",", 
          "1"}], "]"}], "+", 
        RowBox[{"LogM", "[", 
         RowBox[{
          RowBox[{"CZ2", " ", ".", " ", "X2"}], ",", "1"}], "]"}]}], ")"}]}], 
     "-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"I", " ", "\[Gamma]"}], "+", "1"}], ")"}], 
      RowBox[{"(", " ", 
       RowBox[{"Log", "[", 
        RowBox[{"CZ1", " ", ".", " ", "Z1"}], "]"}], ")"}]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"I", " ", "\[Gamma]"}], " ", "-", "1"}], ")"}], 
      RowBox[{"(", 
       RowBox[{"Log", "[", 
        RowBox[{"CZ2", " ", ".", " ", "Z2"}], "]"}], ")"}]}]}], 
    ")"}]}]}], "\n", 
 RowBox[{
  RowBox[{"Action14", "[", 
   RowBox[{
   "Z13_", ",", "CZ13_", ",", "Z23_", ",", "CZ23_", ",", "J3_", ",", 
    "\[Gamma]_"}], "]"}], ":=", 
  RowBox[{"J3", "*", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"2", 
      RowBox[{"Log", "[", 
       RowBox[{"CZ13", " ", ".", " ", "Z23"}], "]"}]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"I", " ", "\[Gamma]"}], " ", "-", "1"}], ")"}], 
      RowBox[{"Log", "[", 
       RowBox[{"CZ13", " ", ".", " ", "Z13"}], "]"}]}], "-", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"I", " ", "\[Gamma]"}], "+", "1"}], ")"}], " ", 
      RowBox[{"Log", "[", 
       RowBox[{"CZ23", " ", ".", " ", "Z23"}], "]"}]}]}], ")"}]}]}], "\n", 
 RowBox[{
  RowBox[{"Action24", "[", 
   RowBox[{
   "Z1_", ",", "CZ1_", ",", "Z2_", ",", "CZ2_", ",", "Z3_", ",", "CZ3_", ",", 
    "Z4_", ",", "CZ4_", ",", "X1_", ",", "X2_", ",", "J_", ",", "\[Gamma]_"}],
    "]"}], ":=", 
  RowBox[{"J", "*", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"2", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Log", "[", 
         RowBox[{
          RowBox[{"Conjugate", "[", "X1", "]"}], " ", ".", " ", "Z1"}], "]"}],
         "+", 
        RowBox[{"Log", "[", 
         RowBox[{"CZ2", " ", ".", " ", "X2"}], "]"}], "+", 
        RowBox[{"Log", "[", 
         RowBox[{"CZ3", " ", ".", " ", "Z4"}], "]"}]}], ")"}]}], "-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"I", " ", "\[Gamma]"}], "+", "1"}], ")"}], 
      RowBox[{"(", " ", 
       RowBox[{
        RowBox[{"Log", "[", 
         RowBox[{"CZ1", " ", ".", " ", "Z1"}], "]"}], "+", 
        RowBox[{"Log", "[", 
         RowBox[{"CZ4", " ", ".", " ", "Z4"}], "]"}]}], ")"}]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"I", " ", "\[Gamma]"}], " ", "-", "1"}], ")"}], 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Log", "[", 
         RowBox[{"CZ2", " ", ".", " ", "Z2"}], "]"}], "+", 
        RowBox[{"Log", "[", 
         RowBox[{"CZ3", " ", ".", " ", "Z3"}], "]"}]}], ")"}]}]}], 
    ")"}]}]}], "\n", 
 RowBox[{
  RowBox[{"Action34", "[", 
   RowBox[{
   "Z1_", ",", "CZ1_", ",", "Z2_", ",", "CZ2_", ",", "X1_", ",", "X2_", ",", 
    "J_", ",", "\[Gamma]_"}], "]"}], ":=", 
  RowBox[{"J", "*", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"2", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Log", "[", 
         RowBox[{
          RowBox[{"Conjugate", "[", "X1", "]"}], " ", ".", " ", "Z1"}], "]"}],
         "+", 
        RowBox[{"Log", "[", 
         RowBox[{"CZ2", " ", ".", " ", "X2"}], "]"}]}], ")"}]}], "-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"I", " ", "\[Gamma]"}], "+", "1"}], ")"}], 
      RowBox[{"(", " ", 
       RowBox[{"Log", "[", 
        RowBox[{"CZ1", " ", ".", " ", "Z1"}], "]"}], ")"}]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"I", " ", "\[Gamma]"}], " ", "-", "1"}], ")"}], 
      RowBox[{"(", 
       RowBox[{"Log", "[", 
        RowBox[{"CZ2", " ", ".", " ", "Z2"}], "]"}], ")"}]}]}], 
    ")"}]}]}], "\n", 
 RowBox[{
  RowBox[{"Action44", "[", 
   RowBox[{
   "Z1_", ",", "CZ1_", ",", "Z2_", ",", "CZ2_", ",", "X1_", ",", "X2_", ",", 
    "J_", ",", "\[Gamma]_"}], "]"}], ":=", 
  RowBox[{"J", "*", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"2", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"LogM", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"Conjugate", "[", "X1", "]"}], " ", ".", " ", "Z1"}], ",", 
          "1"}], "]"}], "+", 
        RowBox[{"LogM", "[", 
         RowBox[{
          RowBox[{"CZ2", " ", ".", " ", "X2"}], ",", "1"}], "]"}]}], ")"}]}], 
     "-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"I", " ", "\[Gamma]"}], "+", "1"}], ")"}], 
      RowBox[{"(", " ", 
       RowBox[{"Log", "[", 
        RowBox[{"CZ1", " ", ".", " ", "Z1"}], "]"}], ")"}]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"I", " ", "\[Gamma]"}], " ", "-", "1"}], ")"}], 
      RowBox[{"(", 
       RowBox[{"Log", "[", 
        RowBox[{"CZ2", " ", ".", " ", "Z2"}], "]"}], ")"}]}]}], 
    ")"}]}]}], "\n", 
 RowBox[{
  RowBox[{"Action11", "[", 
   RowBox[{"Z1_", ",", "CZ1_", ",", "Z2_", ",", "CZ2_", ",", "J_"}], "]"}], ":=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"CZ1", " ", ".", " ", "Z2"}], ",", 
    RowBox[{"CZ1", " ", ".", " ", "Z1"}], ",", 
    RowBox[{"CZ2", " ", ".", " ", "Z2"}]}], "}"}]}], "\n", 
 RowBox[{
  RowBox[{"Action21", "[", 
   RowBox[{
   "Z1_", ",", "CZ1_", ",", "Z2_", ",", "CZ2_", ",", "Z3_", ",", "CZ3_", ",", 
    "Z4_", ",", "CZ4_", ",", "X1_", ",", "X2_", ",", "J_"}], "]"}], ":=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     RowBox[{"Conjugate", "[", "X1", "]"}], " ", ".", " ", "Z1"}], ",", 
    RowBox[{"CZ2", " ", ".", " ", "X2"}], ",", 
    RowBox[{"CZ3", " ", ".", " ", "Z4"}], ",", 
    RowBox[{"CZ1", " ", ".", " ", "Z1"}], ",", 
    RowBox[{"CZ4", " ", ".", " ", "Z4"}], ",", 
    RowBox[{"CZ2", " ", ".", " ", "Z2"}], ",", 
    RowBox[{"CZ3", " ", ".", " ", "Z3"}]}], "}"}]}], "\n", 
 RowBox[{
  RowBox[{"Action31", "[", 
   RowBox[{
   "Z1_", ",", "CZ1_", ",", "Z2_", ",", "CZ2_", ",", "X1_", ",", "X2_", ",", 
    "J_"}], "]"}], ":=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     RowBox[{"Conjugate", "[", "X1", "]"}], " ", ".", " ", "Z1"}], ",", 
    RowBox[{"CZ2", " ", ".", " ", "X2"}], ",", 
    RowBox[{"CZ1", " ", ".", " ", "Z1"}], ",", 
    RowBox[{"CZ2", " ", ".", " ", "Z2"}]}], "}"}]}], "\n", 
 RowBox[{
  RowBox[{"ActionS1", "[", 
   RowBox[{"acl_", ",", "Z_", ",", "ZC_", ",", "jv_"}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"Z11", ",", "Z21", ",", "CZ11", ",", "CZ21", ",", "J1"}], "}"}], 
    ",", "\n", 
    RowBox[{
     RowBox[{"Z11", "=", 
      RowBox[{"Z", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"CZ11", "=", 
      RowBox[{"ZC", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"Z21", "=", 
      RowBox[{"Z", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"CZ21", "=", 
      RowBox[{"ZC", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"J1", "=", 
      RowBox[{"jv", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"Action1", "[", 
      RowBox[{"Z11", ",", "CZ11", ",", "Z21", ",", "CZ21", ",", "J1"}], 
      "]"}]}]}], "\n", "]"}]}], "\n", 
 RowBox[{
  RowBox[{"ActionS2", "[", 
   RowBox[{"acl_", ",", "Z_", ",", "ZC_", ",", "jv_", ",", "xv_"}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "Z1", ",", "Z2", ",", "Z3", ",", "Z4", ",", "CZ1", ",", "CZ2", ",", 
      "CZ3", ",", "CZ4", ",", "X1", ",", "X2", ",", "J"}], "}"}], ",", "\n", 
    RowBox[{
     RowBox[{"X1", "=", 
      RowBox[{"xv", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"X2", "=", 
      RowBox[{"xv", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"Z1", "=", 
      RowBox[{"Z", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"CZ1", "=", 
      RowBox[{"ZC", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"Z2", "=", 
      RowBox[{"Z", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"CZ2", "=", 
      RowBox[{"ZC", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"Z3", "=", 
      RowBox[{"Z", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"3", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"3", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"3", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"CZ3", "=", 
      RowBox[{"ZC", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"3", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"3", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"3", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"Z4", "=", 
      RowBox[{"Z", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"4", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"4", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"4", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"CZ4", "=", 
      RowBox[{"ZC", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"4", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"4", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"4", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"J", "=", 
      RowBox[{"jv", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"Action2", "[", 
      RowBox[{
      "Z1", ",", "CZ1", ",", "Z2", ",", "CZ2", ",", "Z3", ",", "CZ3", ",", 
       "Z4", ",", "CZ4", ",", "X1", ",", "X2", ",", "J"}], "]"}]}]}], "\n", 
   "]"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"ActionS3", "[", 
    RowBox[{"acl_", ",", "Z_", ",", "ZC_", ",", "jv_", ",", "xv_"}], "]"}], ":=", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "Z1", ",", "Z2", ",", "CZ1", ",", "CZ2", ",", "X1", ",", "X2", ",", 
       "J"}], "}"}], ",", "\n", 
     RowBox[{
      RowBox[{"X1", "=", 
       RowBox[{"xv", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{
           RowBox[{"Position", "[", 
            RowBox[{"Sid", ",", 
             RowBox[{"acl", "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{"acl", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
          RowBox[{"acl", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", 
      "\n", 
      RowBox[{"X2", "=", 
       RowBox[{"xv", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{
           RowBox[{"Position", "[", 
            RowBox[{"Sid", ",", 
             RowBox[{"acl", "[", 
              RowBox[{"[", 
               RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{"acl", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
          RowBox[{"acl", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", 
      "\n", 
      RowBox[{"Z1", "=", 
       RowBox[{"Z", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{
           RowBox[{"Position", "[", 
            RowBox[{"Sid", ",", 
             RowBox[{"acl", "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{"acl", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
          RowBox[{"acl", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", 
      "\n", 
      RowBox[{"CZ1", "=", 
       RowBox[{"ZC", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{
           RowBox[{"Position", "[", 
            RowBox[{"Sid", ",", 
             RowBox[{"acl", "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{"acl", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
          RowBox[{"acl", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", 
      "\n", 
      RowBox[{"Z2", "=", 
       RowBox[{"Z", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{
           RowBox[{"Position", "[", 
            RowBox[{"Sid", ",", 
             RowBox[{"acl", "[", 
              RowBox[{"[", 
               RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{"acl", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
          RowBox[{"acl", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", 
      "\n", 
      RowBox[{"CZ2", "=", 
       RowBox[{"ZC", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{
           RowBox[{"Position", "[", 
            RowBox[{"Sid", ",", 
             RowBox[{"acl", "[", 
              RowBox[{"[", 
               RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{"acl", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
          RowBox[{"acl", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", 
      "\n", 
      RowBox[{"J", "=", 
       RowBox[{"jv", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{
           RowBox[{"Position", "[", 
            RowBox[{"Sid", ",", 
             RowBox[{"acl", "[", 
              RowBox[{"[", 
               RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{"acl", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
          RowBox[{"acl", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", 
      "\n", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"acl", "==", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"4", ",", "1", ",", "3"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"4", ",", "3", ",", "1"}], "}"}]}], "}"}]}], ",", 
        RowBox[{"Action4", "[", 
         RowBox[{
         "Z1", ",", "CZ1", ",", "Z2", ",", "CZ2", ",", "X1", ",", "X2", ",", 
          "J"}], "]"}], ",", 
        RowBox[{"Action3", "[", 
         RowBox[{
         "Z1", ",", "CZ1", ",", "Z2", ",", "CZ2", ",", "X1", ",", "X2", ",", 
          "J"}], "]"}]}], "]"}]}]}], "\n", "\n", "]"}]}], "\n"}], "\n", 
 RowBox[{
  RowBox[{"ActionS14", "[", 
   RowBox[{"acl_", ",", "Z_", ",", "ZC_", ",", "jv_", ",", "\[Gamma]_"}], 
   "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"Z11", ",", "Z21", ",", "CZ11", ",", "CZ21", ",", "J1"}], "}"}], 
    ",", "\n", 
    RowBox[{
     RowBox[{"Z11", "=", 
      RowBox[{"Z", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"CZ11", "=", 
      RowBox[{"ZC", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"Z21", "=", 
      RowBox[{"Z", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"CZ21", "=", 
      RowBox[{"ZC", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"J1", "=", 
      RowBox[{"jv", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"Action14", "[", 
      RowBox[{
      "Z11", ",", "CZ11", ",", "Z21", ",", "CZ21", ",", "J1", ",", 
       "\[Gamma]"}], "]"}]}]}], "\n", "]"}]}], "\n", 
 RowBox[{
  RowBox[{"ActionS24", "[", 
   RowBox[{
   "acl_", ",", "Z_", ",", "ZC_", ",", "jv_", ",", "xv_", ",", "\[Gamma]_"}], 
   "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "Z1", ",", "Z2", ",", "Z3", ",", "Z4", ",", "CZ1", ",", "CZ2", ",", 
      "CZ3", ",", "CZ4", ",", "X1", ",", "X2", ",", "J"}], "}"}], ",", "\n", 
    RowBox[{
     RowBox[{"X1", "=", 
      RowBox[{"xv", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"X2", "=", 
      RowBox[{"xv", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"Z1", "=", 
      RowBox[{"Z", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"CZ1", "=", 
      RowBox[{"ZC", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"Z2", "=", 
      RowBox[{"Z", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"CZ2", "=", 
      RowBox[{"ZC", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"Z3", "=", 
      RowBox[{"Z", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"3", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"3", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"3", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"CZ3", "=", 
      RowBox[{"ZC", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"3", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"3", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"3", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"Z4", "=", 
      RowBox[{"Z", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"4", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"4", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"4", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"CZ4", "=", 
      RowBox[{"ZC", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"4", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"4", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"4", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"J", "=", 
      RowBox[{"jv", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"Action24", "[", 
      RowBox[{
      "Z1", ",", "CZ1", ",", "Z2", ",", "CZ2", ",", "Z3", ",", "CZ3", ",", 
       "Z4", ",", "CZ4", ",", "X1", ",", "X2", ",", "J", ",", "\[Gamma]"}], 
      "]"}]}]}], "\n", "]"}]}], "\n", 
 RowBox[{
  RowBox[{"ActionS34", "[", 
   RowBox[{
   "acl_", ",", "Z_", ",", "ZC_", ",", "jv_", ",", "xv_", ",", "\[Gamma]_"}], 
   "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "Z1", ",", "Z2", ",", "CZ1", ",", "CZ2", ",", "X1", ",", "X2", ",", 
      "J"}], "}"}], ",", "\n", 
    RowBox[{
     RowBox[{"X1", "=", 
      RowBox[{"xv", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"X2", "=", 
      RowBox[{"xv", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"Z1", "=", 
      RowBox[{"Z", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"CZ1", "=", 
      RowBox[{"ZC", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"Z2", "=", 
      RowBox[{"Z", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"CZ2", "=", 
      RowBox[{"ZC", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"J", "=", 
      RowBox[{"jv", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"acl", "==", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"4", ",", "1", ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"4", ",", "3", ",", "1"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"Action44", "[", 
        RowBox[{
        "Z1", ",", "CZ1", ",", "Z2", ",", "CZ2", ",", "X1", ",", "X2", ",", 
         "J", ",", "\[Gamma]"}], "]"}], ",", 
       RowBox[{"Action34", "[", 
        RowBox[{
        "Z1", ",", "CZ1", ",", "Z2", ",", "CZ2", ",", "X1", ",", "X2", ",", 
         "J", ",", "\[Gamma]"}], "]"}]}], "]"}]}]}], "\n", "\n", 
   "]"}]}], "\n", 
 RowBox[{
  RowBox[{"ActionS11", "[", 
   RowBox[{"acl_", ",", "Z_", ",", "ZC_", ",", "jv_"}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"Z1", ",", "Z2", ",", "CZ1", ",", "CZ2", ",", "J"}], "}"}], ",", 
    "\n", 
    RowBox[{
     RowBox[{"Z1", "=", 
      RowBox[{"Z", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"CZ1", "=", 
      RowBox[{"ZC", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"Z2", "=", 
      RowBox[{"Z", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"CZ2", "=", 
      RowBox[{"ZC", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"J", "=", 
      RowBox[{"jv", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"Action11", "[", 
      RowBox[{"Z1", ",", "CZ1", ",", "Z2", ",", "CZ2", ",", "J"}], "]"}]}]}], 
   "\n", "]"}]}], "\n", 
 RowBox[{
  RowBox[{"ActionS21", "[", 
   RowBox[{"acl_", ",", "Z_", ",", "ZC_", ",", "jv_", ",", "xv_"}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "Z1", ",", "Z2", ",", "Z3", ",", "Z4", ",", "CZ1", ",", "CZ2", ",", 
      "CZ3", ",", "CZ4", ",", "X1", ",", "X2", ",", "J"}], "}"}], ",", "\n", 
    RowBox[{
     RowBox[{"X1", "=", 
      RowBox[{"xv", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"X2", "=", 
      RowBox[{"xv", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"Z1", "=", 
      RowBox[{"Z", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"CZ1", "=", 
      RowBox[{"ZC", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"Z2", "=", 
      RowBox[{"Z", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"CZ2", "=", 
      RowBox[{"ZC", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"Z3", "=", 
      RowBox[{"Z", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"3", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"3", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"3", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"CZ3", "=", 
      RowBox[{"ZC", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"3", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"3", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"3", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"Z4", "=", 
      RowBox[{"Z", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"4", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"4", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"4", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"CZ4", "=", 
      RowBox[{"ZC", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"4", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"4", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"4", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"J", "=", 
      RowBox[{"jv", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"Action21", "[", 
      RowBox[{
      "Z1", ",", "CZ1", ",", "Z2", ",", "CZ2", ",", "Z3", ",", "CZ3", ",", 
       "Z4", ",", "CZ4", ",", "X1", ",", "X2", ",", "J"}], "]"}]}]}], "\n", 
   "]"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"ActionS31", "[", 
    RowBox[{"acl_", ",", "Z_", ",", "ZC_", ",", "jv_", ",", "xv_"}], "]"}], ":=", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "Z1", ",", "Z2", ",", "CZ1", ",", "CZ2", ",", "X1", ",", "X2", ",", 
       "J"}], "}"}], ",", "\n", 
     RowBox[{
      RowBox[{"X1", "=", 
       RowBox[{"xv", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{
           RowBox[{"Position", "[", 
            RowBox[{"Sid", ",", 
             RowBox[{"acl", "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{"acl", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
          RowBox[{"acl", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", 
      "\n", 
      RowBox[{"X2", "=", 
       RowBox[{"xv", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{
           RowBox[{"Position", "[", 
            RowBox[{"Sid", ",", 
             RowBox[{"acl", "[", 
              RowBox[{"[", 
               RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{"acl", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
          RowBox[{"acl", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", 
      "\n", 
      RowBox[{"Z1", "=", 
       RowBox[{"Z", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{
           RowBox[{"Position", "[", 
            RowBox[{"Sid", ",", 
             RowBox[{"acl", "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{"acl", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
          RowBox[{"acl", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", 
      "\n", 
      RowBox[{"CZ1", "=", 
       RowBox[{"ZC", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{
           RowBox[{"Position", "[", 
            RowBox[{"Sid", ",", 
             RowBox[{"acl", "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{"acl", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
          RowBox[{"acl", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", 
      "\n", 
      RowBox[{"Z2", "=", 
       RowBox[{"Z", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{
           RowBox[{"Position", "[", 
            RowBox[{"Sid", ",", 
             RowBox[{"acl", "[", 
              RowBox[{"[", 
               RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{"acl", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
          RowBox[{"acl", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", 
      "\n", 
      RowBox[{"CZ2", "=", 
       RowBox[{"ZC", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{
           RowBox[{"Position", "[", 
            RowBox[{"Sid", ",", 
             RowBox[{"acl", "[", 
              RowBox[{"[", 
               RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{"acl", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
          RowBox[{"acl", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", 
      "\n", 
      RowBox[{"J", "=", 
       RowBox[{"jv", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{
           RowBox[{"Position", "[", 
            RowBox[{"Sid", ",", 
             RowBox[{"acl", "[", 
              RowBox[{"[", 
               RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{"acl", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
          RowBox[{"acl", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", 
      "\n", 
      RowBox[{"Action31", "[", 
       RowBox[{
       "Z1", ",", "CZ1", ",", "Z2", ",", "CZ2", ",", "X1", ",", "X2", ",", 
        "J"}], "]"}]}]}], "\n", "]"}]}], "\n"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"SR", "[", 
    RowBox[{
    "xtt_", ",", "Z_", ",", "ZC_", ",", "jv_", ",", "xv_", ",", "\[Gamma]_"}],
     "]"}], ":=", 
   RowBox[{"Which", "[", "\n", 
    RowBox[{
     RowBox[{
      RowBox[{"Length", "[", "xtt", "]"}], "==", "3"}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"ActionS1", "[", 
         RowBox[{"#", ",", "Z", ",", "ZC", ",", "jv"}], "]"}], "&"}], "/@", 
       "xtt"}], "//", "Total"}], ",", "\n", 
     RowBox[{
      RowBox[{"Length", "[", "xtt", "]"}], "==", "4"}], ",", 
     RowBox[{"ActionS2", "[", 
      RowBox[{"xtt", ",", "Z", ",", "ZC", ",", "jv", ",", "xv"}], "]"}], ",", 
     "\n", 
     RowBox[{
      RowBox[{"Length", "[", "xtt", "]"}], "==", "2"}], ",", 
     RowBox[{"ActionS3", "[", 
      RowBox[{"xtt", ",", "Z", ",", "ZC", ",", "jv", ",", "xv"}], "]"}]}], 
    "\n", "]"}]}], "\n"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"SRx", "[", 
    RowBox[{
    "xtt_", ",", "Z_", ",", "ZC_", ",", "jv_", ",", "xv_", ",", "\[Gamma]_"}],
     "]"}], ":=", 
   RowBox[{"Which", "[", "\n", 
    RowBox[{
     RowBox[{
      RowBox[{"Length", "[", "xtt", "]"}], "==", "3"}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"ActionS14", "[", 
         RowBox[{"#", ",", "Z", ",", "ZC", ",", "jv", ",", "\[Gamma]"}], 
         "]"}], "&"}], "/@", "xtt"}], "//", "Total"}], ",", "\n", 
     RowBox[{
      RowBox[{"Length", "[", "xtt", "]"}], "==", "4"}], ",", 
     RowBox[{"ActionS24", "[", 
      RowBox[{
      "xtt", ",", "Z", ",", "ZC", ",", "jv", ",", "xv", ",", "\[Gamma]"}], 
      "]"}], ",", "\n", 
     RowBox[{
      RowBox[{"Length", "[", "xtt", "]"}], "==", "2"}], ",", 
     RowBox[{"ActionS34", "[", 
      RowBox[{
      "xtt", ",", "Z", ",", "ZC", ",", "jv", ",", "xv", ",", "\[Gamma]"}], 
      "]"}]}], "\n", "]"}]}], "\n"}], "\n", 
 RowBox[{
  RowBox[{"SR1", "[", 
   RowBox[{"xtt_", ",", "Z_", ",", "ZC_", ",", "jv_", ",", "xv_"}], "]"}], ":=", 
  RowBox[{"Which", "[", "\n", 
   RowBox[{
    RowBox[{
     RowBox[{"Length", "[", "xtt", "]"}], "==", "3"}], ",", 
    RowBox[{
     RowBox[{
      RowBox[{"ActionS1", "[", 
       RowBox[{"#", ",", "Z", ",", "ZC", ",", "jv"}], "]"}], "&"}], "/@", 
     "xtt"}], ",", "\n", 
    RowBox[{
     RowBox[{"Length", "[", "xtt", "]"}], "==", "4"}], ",", 
    RowBox[{"ActionS2", "[", 
     RowBox[{"xtt", ",", "Z", ",", "ZC", ",", "jv", ",", "xv"}], "]"}], ",", 
    "\n", 
    RowBox[{
     RowBox[{"Length", "[", "xtt", "]"}], "==", "2"}], ",", 
    RowBox[{"ActionS3", "[", 
     RowBox[{"xtt", ",", "Z", ",", "ZC", ",", "jv", ",", "xv"}], "]"}]}], 
   "\n", "]"}]}], "\n", 
 RowBox[{
  RowBox[{"ActionF", "[", "xt_", "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "AA", ",", "AB", ",", "gtv", ",", "gctv", ",", "ztv", ",", "zctv", ",", 
      "jv", ",", "Z", ",", "ZC", ",", "gvs", ",", "zvs", ",", "zcvs"}], "}"}],
     ",", "\n", 
    RowBox[{
     RowBox[{"AA", "=", 
      RowBox[{"xt", "[", 
       RowBox[{"[", 
        RowBox[{"1", ";;", "124"}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"AB", "=", 
      RowBox[{"xt", "[", 
       RowBox[{"[", 
        RowBox[{"125", ";;", "248"}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"gtv", "=", "gv"}], ";", "\n", 
     RowBox[{"gctv", "=", "gv"}], ";", "\n", 
     RowBox[{"ztv", "=", "zv"}], ";", "\n", 
     RowBox[{"zctv", "=", "zv"}], ";", "\n", 
     RowBox[{"jv", "=", "arv"}], ";", "\n", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"jv", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{
            RowBox[{"Position", "[", 
             RowBox[{"Sid", ",", 
              RowBox[{"#", "[", 
               RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
           RowBox[{"#", "[", 
            RowBox[{"[", "2", "]"}], "]"}], ",", 
           RowBox[{"#", "[", 
            RowBox[{"[", "3", "]"}], "]"}]}], "]"}], "]"}], "+=", 
        RowBox[{
         RowBox[{"SPL", "[", 
          RowBox[{"AA", "+", 
           RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
         RowBox[{"[", 
          RowBox[{"43", ",", "1"}], "]"}], "]"}]}], "&"}], "/@", 
      RowBox[{"ArrayReshape", "[", 
       RowBox[{
        RowBox[{"acl", "[", 
         RowBox[{"[", "1", "]"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"6", ",", "3"}], "}"}]}], "]"}]}], ";", "\n", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"gctv", "[", 
         RowBox[{"[", 
          RowBox[{"x", ",", "y"}], "]"}], "]"}], "=", 
        RowBox[{"ConjugateTranspose", "[", 
         RowBox[{"gv", "[", 
          RowBox[{"[", 
           RowBox[{"x", ",", "y"}], "]"}], "]"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "1", ",", "3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"y", ",", "1", ",", "6"}], "}"}]}], "]"}], ";", "\n", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"gtv", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{
            RowBox[{"Position", "[", 
             RowBox[{"Sid", ",", 
              RowBox[{"gindex", "[", 
               RowBox[{"[", 
                RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
           RowBox[{"gindex", "[", 
            RowBox[{"[", 
             RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
        RowBox[{
         RowBox[{"gtv", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{
             RowBox[{"Position", "[", 
              RowBox[{"Sid", ",", 
               RowBox[{"gindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
            RowBox[{"gindex", "[", 
             RowBox[{"[", 
              RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], " ", ".",
          " ", 
         RowBox[{"GG", "[", 
          RowBox[{
           RowBox[{"SPL", "[", 
            RowBox[{"AA", "+", 
             RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
           RowBox[{"[", "x", "]"}], "]"}], "]"}]}]}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "1", ",", "12"}], "}"}]}], "]"}], ";", "\n", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"gctv", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{
            RowBox[{"Position", "[", 
             RowBox[{"Sid", ",", 
              RowBox[{"gindex", "[", 
               RowBox[{"[", 
                RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
           RowBox[{"gindex", "[", 
            RowBox[{"[", 
             RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
        RowBox[{
         RowBox[{"CGG", "[", 
          RowBox[{
           RowBox[{"SPL", "[", 
            RowBox[{"AA", "+", 
             RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
           RowBox[{"[", "x", "]"}], "]"}], "]"}], " ", ".", " ", 
         RowBox[{"gctv", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{
             RowBox[{"Position", "[", 
              RowBox[{"Sid", ",", 
               RowBox[{"gindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
            RowBox[{"gindex", "[", 
             RowBox[{"[", 
              RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}]}]}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "1", ",", "12"}], "}"}]}], "]"}], ";", "\n", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{"{", "\n", 
        RowBox[{
         RowBox[{
          RowBox[{"ztv", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{
              RowBox[{"Position", "[", 
               RowBox[{"Sid", ",", 
                RowBox[{"zindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "2"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
          RowBox[{"ZV", "[", 
           RowBox[{
            RowBox[{"zv", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{
                RowBox[{"Position", "[", 
                 RowBox[{"Sid", ",", 
                  RowBox[{"zindex", "[", 
                   RowBox[{"[", 
                    RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "2"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"SPL", "[", 
              RowBox[{"AA", "+", 
               RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"x", "+", "12"}], "]"}], "]"}]}], "]"}]}], ";", "\n", 
         RowBox[{
          RowBox[{"ztv", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{
              RowBox[{"Position", "[", 
               RowBox[{"Sid", ",", 
                RowBox[{"zindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "3"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
          RowBox[{"ZV", "[", 
           RowBox[{
            RowBox[{"zv", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{
                RowBox[{"Position", "[", 
                 RowBox[{"Sid", ",", 
                  RowBox[{"zindex", "[", 
                   RowBox[{"[", 
                    RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "3"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"SPL", "[", 
              RowBox[{"AA", "+", 
               RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"x", "+", "12"}], "]"}], "]"}]}], "]"}]}], ";", "\n", 
         RowBox[{
          RowBox[{"zctv", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{
              RowBox[{"Position", "[", 
               RowBox[{"Sid", ",", 
                RowBox[{"zindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "2"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
          RowBox[{"CZV", "[", 
           RowBox[{
            RowBox[{"zv", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{
                RowBox[{"Position", "[", 
                 RowBox[{"Sid", ",", 
                  RowBox[{"zindex", "[", 
                   RowBox[{"[", 
                    RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "2"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"SPL", "[", 
              RowBox[{"AA", "+", 
               RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"x", "+", "12"}], "]"}], "]"}]}], "]"}]}], ";", "\n", 
         RowBox[{
          RowBox[{"zctv", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{
              RowBox[{"Position", "[", 
               RowBox[{"Sid", ",", 
                RowBox[{"zindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "3"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
          RowBox[{"CZV", "[", 
           RowBox[{
            RowBox[{"zv", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{
                RowBox[{"Position", "[", 
                 RowBox[{"Sid", ",", 
                  RowBox[{"zindex", "[", 
                   RowBox[{"[", 
                    RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "3"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"SPL", "[", 
              RowBox[{"AA", "+", 
               RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"x", "+", "12"}], "]"}], "]"}]}], "]"}]}], ";"}], "\n", 
        "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"x", ",", "1", ",", "30"}], "}"}]}], "]"}], ";", "\n", 
     RowBox[{"Z", "=", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"gctv", "[", 
          RowBox[{"[", 
           RowBox[{"x", ",", "y"}], "]"}], "]"}], " ", ".", " ", 
         RowBox[{"ztv", "[", 
          RowBox[{"[", 
           RowBox[{"x", ",", "y", ",", "z"}], "]"}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "1", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"y", ",", "1", ",", "6"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"z", ",", "1", ",", "6"}], "}"}]}], "]"}]}], ";", "\n", 
     RowBox[{"ZC", "=", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"zctv", "[", 
          RowBox[{"[", 
           RowBox[{"x", ",", "y", ",", "z"}], "]"}], "]"}], " ", ".", " ", 
         RowBox[{"gtv", "[", 
          RowBox[{"[", 
           RowBox[{"x", ",", "y"}], "]"}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "1", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"y", ",", "1", ",", "6"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"z", ",", "1", ",", "6"}], "}"}]}], "]"}]}], ";", "\n", 
     RowBox[{"jv", "=", 
      RowBox[{"jv", "*", "\[Lambda]"}]}], ";", "\n", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"SR", "[", 
         RowBox[{"#", ",", "Z", ",", "ZC", ",", "jv", ",", "xv"}], "]"}], 
        "&"}], "/@", "acl"}], "//", "Total"}]}]}], "\n", "]"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"ActionFK", "[", 
    RowBox[{"xt_", ",", "\[Gamma]_"}], "]"}], ":=", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "AA", ",", "AB", ",", "gtv", ",", "gctv", ",", "ztv", ",", "zctv", ",", 
       "jv", ",", "Z", ",", "ZC", ",", "gvs", ",", "zvs", ",", "zcvs"}], 
      "}"}], ",", "\n", 
     RowBox[{
      RowBox[{"AA", "=", 
       RowBox[{"xt", "[", 
        RowBox[{"[", 
         RowBox[{"1", ";;", "124"}], "]"}], "]"}]}], ";", "\n", 
      RowBox[{"AB", "=", 
       RowBox[{"xt", "[", 
        RowBox[{"[", 
         RowBox[{"125", ";;", "248"}], "]"}], "]"}]}], ";", "\n", 
      RowBox[{"gtv", "=", "gv"}], ";", "\n", 
      RowBox[{"gctv", "=", "gv"}], ";", "\n", 
      RowBox[{"ztv", "=", "zv"}], ";", "\n", 
      RowBox[{"zctv", "=", "zv"}], ";", "\n", 
      RowBox[{"jv", "=", "arv"}], ";", "\n", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"jv", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{
             RowBox[{"Position", "[", 
              RowBox[{"Sid", ",", 
               RowBox[{"#", "[", 
                RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
            RowBox[{"#", "[", 
             RowBox[{"[", "2", "]"}], "]"}], ",", 
            RowBox[{"#", "[", 
             RowBox[{"[", "3", "]"}], "]"}]}], "]"}], "]"}], "+=", 
         RowBox[{
          RowBox[{"SPL", "[", 
           RowBox[{"AA", "+", 
            RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"43", ",", "1"}], "]"}], "]"}]}], "&"}], "/@", 
       RowBox[{"ArrayReshape", "[", 
        RowBox[{
         RowBox[{"acl", "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"6", ",", "3"}], "}"}]}], "]"}]}], ";", "\n", 
      RowBox[{"Do", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"gctv", "[", 
          RowBox[{"[", 
           RowBox[{"x", ",", "y"}], "]"}], "]"}], "=", 
         RowBox[{"ConjugateTranspose", "[", 
          RowBox[{"gv", "[", 
           RowBox[{"[", 
            RowBox[{"x", ",", "y"}], "]"}], "]"}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "1", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"y", ",", "1", ",", "6"}], "}"}]}], "]"}], ";", "\n", 
      RowBox[{"Do", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"gtv", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{
             RowBox[{"Position", "[", 
              RowBox[{"Sid", ",", 
               RowBox[{"gindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
            RowBox[{"gindex", "[", 
             RowBox[{"[", 
              RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
         RowBox[{
          RowBox[{"gtv", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{
              RowBox[{"Position", "[", 
               RowBox[{"Sid", ",", 
                RowBox[{"gindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"gindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], " ", 
          ".", " ", 
          RowBox[{"GG", "[", 
           RowBox[{
            RowBox[{"SPL", "[", 
             RowBox[{"AA", "+", 
              RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
            RowBox[{"[", "x", "]"}], "]"}], "]"}]}]}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "1", ",", "12"}], "}"}]}], "]"}], ";", "\n", 
      RowBox[{"Do", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"gctv", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{
             RowBox[{"Position", "[", 
              RowBox[{"Sid", ",", 
               RowBox[{"gindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
            RowBox[{"gindex", "[", 
             RowBox[{"[", 
              RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
         RowBox[{
          RowBox[{"CGG", "[", 
           RowBox[{
            RowBox[{"SPL", "[", 
             RowBox[{"AA", "+", 
              RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
            RowBox[{"[", "x", "]"}], "]"}], "]"}], " ", ".", " ", 
          RowBox[{"gctv", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{
              RowBox[{"Position", "[", 
               RowBox[{"Sid", ",", 
                RowBox[{"gindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"gindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}]}]}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "1", ",", "12"}], "}"}]}], "]"}], ";", "\n", 
      RowBox[{"Do", "[", 
       RowBox[{
        RowBox[{"{", "\n", 
         RowBox[{
          RowBox[{
           RowBox[{"ztv", "[", 
            RowBox[{"[", 
             RowBox[{
              RowBox[{
               RowBox[{"Position", "[", 
                RowBox[{"Sid", ",", 
                 RowBox[{"zindex", "[", 
                  RowBox[{"[", 
                   RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
               RowBox[{"[", 
                RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
              RowBox[{"zindex", "[", 
               RowBox[{"[", 
                RowBox[{"x", ",", "2"}], "]"}], "]"}], ",", 
              RowBox[{"zindex", "[", 
               RowBox[{"[", 
                RowBox[{"x", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
           RowBox[{"ZV", "[", 
            RowBox[{
             RowBox[{"zv", "[", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Position", "[", 
                  RowBox[{"Sid", ",", 
                   RowBox[{"zindex", "[", 
                    RowBox[{"[", 
                    RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
                 RowBox[{"[", 
                  RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
                RowBox[{"zindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "2"}], "]"}], "]"}], ",", 
                RowBox[{"zindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}], ",", 
             RowBox[{
              RowBox[{"SPL", "[", 
               RowBox[{"AA", "+", 
                RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"x", "+", "12"}], "]"}], "]"}]}], "]"}]}], ";", "\n", 
          RowBox[{
           RowBox[{"ztv", "[", 
            RowBox[{"[", 
             RowBox[{
              RowBox[{
               RowBox[{"Position", "[", 
                RowBox[{"Sid", ",", 
                 RowBox[{"zindex", "[", 
                  RowBox[{"[", 
                   RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
               RowBox[{"[", 
                RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
              RowBox[{"zindex", "[", 
               RowBox[{"[", 
                RowBox[{"x", ",", "3"}], "]"}], "]"}], ",", 
              RowBox[{"zindex", "[", 
               RowBox[{"[", 
                RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
           RowBox[{"ZV", "[", 
            RowBox[{
             RowBox[{"zv", "[", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Position", "[", 
                  RowBox[{"Sid", ",", 
                   RowBox[{"zindex", "[", 
                    RowBox[{"[", 
                    RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
                 RowBox[{"[", 
                  RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
                RowBox[{"zindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "3"}], "]"}], "]"}], ",", 
                RowBox[{"zindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], ",", 
             RowBox[{
              RowBox[{"SPL", "[", 
               RowBox[{"AA", "+", 
                RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"x", "+", "12"}], "]"}], "]"}]}], "]"}]}], ";", "\n", 
          RowBox[{
           RowBox[{"zctv", "[", 
            RowBox[{"[", 
             RowBox[{
              RowBox[{
               RowBox[{"Position", "[", 
                RowBox[{"Sid", ",", 
                 RowBox[{"zindex", "[", 
                  RowBox[{"[", 
                   RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
               RowBox[{"[", 
                RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
              RowBox[{"zindex", "[", 
               RowBox[{"[", 
                RowBox[{"x", ",", "2"}], "]"}], "]"}], ",", 
              RowBox[{"zindex", "[", 
               RowBox[{"[", 
                RowBox[{"x", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
           RowBox[{"CZV", "[", 
            RowBox[{
             RowBox[{"zv", "[", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Position", "[", 
                  RowBox[{"Sid", ",", 
                   RowBox[{"zindex", "[", 
                    RowBox[{"[", 
                    RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
                 RowBox[{"[", 
                  RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
                RowBox[{"zindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "2"}], "]"}], "]"}], ",", 
                RowBox[{"zindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}], ",", 
             RowBox[{
              RowBox[{"SPL", "[", 
               RowBox[{"AA", "+", 
                RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"x", "+", "12"}], "]"}], "]"}]}], "]"}]}], ";", "\n", 
          RowBox[{
           RowBox[{"zctv", "[", 
            RowBox[{"[", 
             RowBox[{
              RowBox[{
               RowBox[{"Position", "[", 
                RowBox[{"Sid", ",", 
                 RowBox[{"zindex", "[", 
                  RowBox[{"[", 
                   RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
               RowBox[{"[", 
                RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
              RowBox[{"zindex", "[", 
               RowBox[{"[", 
                RowBox[{"x", ",", "3"}], "]"}], "]"}], ",", 
              RowBox[{"zindex", "[", 
               RowBox[{"[", 
                RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
           RowBox[{"CZV", "[", 
            RowBox[{
             RowBox[{"zv", "[", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Position", "[", 
                  RowBox[{"Sid", ",", 
                   RowBox[{"zindex", "[", 
                    RowBox[{"[", 
                    RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
                 RowBox[{"[", 
                  RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
                RowBox[{"zindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "3"}], "]"}], "]"}], ",", 
                RowBox[{"zindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], ",", 
             RowBox[{
              RowBox[{"SPL", "[", 
               RowBox[{"AA", "+", 
                RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"x", "+", "12"}], "]"}], "]"}]}], "]"}]}], ";"}], "\n",
          "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{"x", ",", "1", ",", "30"}], "}"}]}], "]"}], ";", "\n", 
      RowBox[{"Z", "=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"gctv", "[", 
           RowBox[{"[", 
            RowBox[{"x", ",", "y"}], "]"}], "]"}], " ", ".", " ", 
          RowBox[{"ztv", "[", 
           RowBox[{"[", 
            RowBox[{"x", ",", "y", ",", "z"}], "]"}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", "1", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"y", ",", "1", ",", "6"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"z", ",", "1", ",", "6"}], "}"}]}], "]"}]}], ";", "\n", 
      RowBox[{"ZC", "=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"zctv", "[", 
           RowBox[{"[", 
            RowBox[{"x", ",", "y", ",", "z"}], "]"}], "]"}], " ", ".", " ", 
          RowBox[{"gtv", "[", 
           RowBox[{"[", 
            RowBox[{"x", ",", "y"}], "]"}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", "1", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"y", ",", "1", ",", "6"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"z", ",", "1", ",", "6"}], "}"}]}], "]"}]}], ";", "\n", 
      RowBox[{"jv", "=", 
       RowBox[{"jv", "*", "\[Lambda]"}]}], ";", "\n", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"SRx", "[", 
          RowBox[{
          "#", ",", "Z", ",", "ZC", ",", "jv", ",", "xv", ",", "\[Gamma]"}], 
          "]"}], "&"}], "/@", "acl"}], "//", "Total"}]}]}], "\n", "]"}]}], 
  "\n"}], "\n", 
 RowBox[{
  RowBox[{"ActionFF", "[", "xt_", "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "AA", ",", "AB", ",", "gtv", ",", "gctv", ",", "ztv", ",", "zctv", ",", 
      "jv", ",", "Z", ",", "ZC", ",", "gvs", ",", "zvs", ",", "zcvs"}], "}"}],
     ",", "\n", 
    RowBox[{
     RowBox[{"AA", "=", 
      RowBox[{"xt", "[", 
       RowBox[{"[", 
        RowBox[{"1", ";;", "124"}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"AB", "=", 
      RowBox[{"xt", "[", 
       RowBox[{"[", 
        RowBox[{"125", ";;", "248"}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"gtv", "=", "gv"}], ";", "\n", 
     RowBox[{"gctv", "=", "gv"}], ";", "\n", 
     RowBox[{"ztv", "=", "zv"}], ";", "\n", 
     RowBox[{"zctv", "=", "zv"}], ";", "\n", 
     RowBox[{"jv", "=", "arv"}], ";", "\n", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"jv", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{
            RowBox[{"Position", "[", 
             RowBox[{"Sid", ",", 
              RowBox[{"#", "[", 
               RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
           RowBox[{"#", "[", 
            RowBox[{"[", "2", "]"}], "]"}], ",", 
           RowBox[{"#", "[", 
            RowBox[{"[", "3", "]"}], "]"}]}], "]"}], "]"}], "+=", 
        RowBox[{
         RowBox[{"SPL", "[", 
          RowBox[{"AA", "+", 
           RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
         RowBox[{"[", 
          RowBox[{"43", ",", "1"}], "]"}], "]"}]}], "&"}], "/@", 
      RowBox[{"ArrayReshape", "[", 
       RowBox[{
        RowBox[{"acl", "[", 
         RowBox[{"[", "1", "]"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"6", ",", "3"}], "}"}]}], "]"}]}], ";", "\n", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"gctv", "[", 
         RowBox[{"[", 
          RowBox[{"x", ",", "y"}], "]"}], "]"}], "=", 
        RowBox[{"ConjugateTranspose", "[", 
         RowBox[{"gv", "[", 
          RowBox[{"[", 
           RowBox[{"x", ",", "y"}], "]"}], "]"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "1", ",", "3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"y", ",", "1", ",", "6"}], "}"}]}], "]"}], ";", "\n", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"gtv", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{
            RowBox[{"Position", "[", 
             RowBox[{"Sid", ",", 
              RowBox[{"gindex", "[", 
               RowBox[{"[", 
                RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
           RowBox[{"gindex", "[", 
            RowBox[{"[", 
             RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
        RowBox[{
         RowBox[{"gtv", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{
             RowBox[{"Position", "[", 
              RowBox[{"Sid", ",", 
               RowBox[{"gindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
            RowBox[{"gindex", "[", 
             RowBox[{"[", 
              RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], " ", ".",
          " ", 
         RowBox[{"GG", "[", 
          RowBox[{
           RowBox[{"SPL", "[", 
            RowBox[{"AA", "+", 
             RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
           RowBox[{"[", "x", "]"}], "]"}], "]"}]}]}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "1", ",", "12"}], "}"}]}], "]"}], ";", "\n", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"gctv", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{
            RowBox[{"Position", "[", 
             RowBox[{"Sid", ",", 
              RowBox[{"gindex", "[", 
               RowBox[{"[", 
                RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
           RowBox[{"gindex", "[", 
            RowBox[{"[", 
             RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
        RowBox[{
         RowBox[{"CGG", "[", 
          RowBox[{
           RowBox[{"SPL", "[", 
            RowBox[{"AA", "+", 
             RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
           RowBox[{"[", "x", "]"}], "]"}], "]"}], " ", ".", " ", 
         RowBox[{"gctv", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{
             RowBox[{"Position", "[", 
              RowBox[{"Sid", ",", 
               RowBox[{"gindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
            RowBox[{"gindex", "[", 
             RowBox[{"[", 
              RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}]}]}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "1", ",", "12"}], "}"}]}], "]"}], ";", "\n", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{"{", "\n", 
        RowBox[{
         RowBox[{
          RowBox[{"ztv", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{
              RowBox[{"Position", "[", 
               RowBox[{"Sid", ",", 
                RowBox[{"zindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "2"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
          RowBox[{"ZV", "[", 
           RowBox[{
            RowBox[{"zv", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{
                RowBox[{"Position", "[", 
                 RowBox[{"Sid", ",", 
                  RowBox[{"zindex", "[", 
                   RowBox[{"[", 
                    RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "2"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"SPL", "[", 
              RowBox[{"AA", "+", 
               RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"x", "+", "12"}], "]"}], "]"}]}], "]"}]}], ";", "\n", 
         RowBox[{
          RowBox[{"ztv", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{
              RowBox[{"Position", "[", 
               RowBox[{"Sid", ",", 
                RowBox[{"zindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "3"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
          RowBox[{"ZV", "[", 
           RowBox[{
            RowBox[{"zv", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{
                RowBox[{"Position", "[", 
                 RowBox[{"Sid", ",", 
                  RowBox[{"zindex", "[", 
                   RowBox[{"[", 
                    RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "3"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"SPL", "[", 
              RowBox[{"AA", "+", 
               RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"x", "+", "12"}], "]"}], "]"}]}], "]"}]}], ";", "\n", 
         RowBox[{
          RowBox[{"zctv", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{
              RowBox[{"Position", "[", 
               RowBox[{"Sid", ",", 
                RowBox[{"zindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "2"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
          RowBox[{"CZV", "[", 
           RowBox[{
            RowBox[{"zv", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{
                RowBox[{"Position", "[", 
                 RowBox[{"Sid", ",", 
                  RowBox[{"zindex", "[", 
                   RowBox[{"[", 
                    RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "2"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"SPL", "[", 
              RowBox[{"AA", "+", 
               RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"x", "+", "12"}], "]"}], "]"}]}], "]"}]}], ";", "\n", 
         RowBox[{
          RowBox[{"zctv", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{
              RowBox[{"Position", "[", 
               RowBox[{"Sid", ",", 
                RowBox[{"zindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "3"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
          RowBox[{"CZV", "[", 
           RowBox[{
            RowBox[{"zv", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{
                RowBox[{"Position", "[", 
                 RowBox[{"Sid", ",", 
                  RowBox[{"zindex", "[", 
                   RowBox[{"[", 
                    RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "3"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"SPL", "[", 
              RowBox[{"AA", "+", 
               RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"x", "+", "12"}], "]"}], "]"}]}], "]"}]}], ";"}], "\n", 
        "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"x", ",", "1", ",", "30"}], "}"}]}], "]"}], ";", "\n", 
     RowBox[{"Z", "=", 
      RowBox[{"Chop", "[", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"gctv", "[", 
            RowBox[{"[", 
             RowBox[{"x", ",", "y"}], "]"}], "]"}], " ", ".", " ", 
           RowBox[{"ztv", "[", 
            RowBox[{"[", 
             RowBox[{"x", ",", "y", ",", "z"}], "]"}], "]"}]}], ",", 
          RowBox[{"{", 
           RowBox[{"x", ",", "1", ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"y", ",", "1", ",", "6"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"z", ",", "1", ",", "6"}], "}"}]}], "]"}], ",", 
        RowBox[{"10", "^", 
         RowBox[{"(", 
          RowBox[{"-", "14"}], ")"}]}]}], "]"}]}], ";", "\n", 
     RowBox[{"ZC", "=", 
      RowBox[{"Chop", "[", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"zctv", "[", 
            RowBox[{"[", 
             RowBox[{"x", ",", "y", ",", "z"}], "]"}], "]"}], " ", ".", " ", 
           RowBox[{"gtv", "[", 
            RowBox[{"[", 
             RowBox[{"x", ",", "y"}], "]"}], "]"}]}], ",", 
          RowBox[{"{", 
           RowBox[{"x", ",", "1", ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"y", ",", "1", ",", "6"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"z", ",", "1", ",", "6"}], "}"}]}], "]"}], ",", 
        RowBox[{"10", "^", 
         RowBox[{"(", 
          RowBox[{"-", "14"}], ")"}]}]}], "]"}]}], ";", "\n", 
     RowBox[{"jv", "=", 
      RowBox[{"jv", "*", "\[Lambda]"}]}], ";", "\n", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Z", "[", 
        RowBox[{"[", 
         RowBox[{"1", ",", "4", ",", "2"}], "]"}], "]"}], ",", 
       RowBox[{"ZC", "[", 
        RowBox[{"[", 
         RowBox[{"1", ",", "4", ",", "2"}], "]"}], "]"}], ",", 
       RowBox[{"Z", "[", 
        RowBox[{"[", 
         RowBox[{"2", ",", "6", ",", "2"}], "]"}], "]"}], ",", 
       RowBox[{"ZC", "[", 
        RowBox[{"[", 
         RowBox[{"2", ",", "6", ",", "2"}], "]"}], "]"}], ",", 
       RowBox[{"jv", "[", 
        RowBox[{"[", 
         RowBox[{"2", ",", "6", ",", "2"}], "]"}], "]"}]}], "}"}]}]}], "\n", 
   "]"}]}], "\n", 
 RowBox[{
  RowBox[{"ActionFC", "[", "xt_", "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "AA", ",", "AB", ",", "gtv", ",", "gctv", ",", "ztv", ",", "zctv", ",", 
      "jv", ",", "Z", ",", "ZC", ",", "gvs", ",", "zvs", ",", "zcvs"}], "}"}],
     ",", "\n", 
    RowBox[{
     RowBox[{"AA", "=", 
      RowBox[{"xt", "[", 
       RowBox[{"[", 
        RowBox[{"1", ";;", "124"}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"AB", "=", 
      RowBox[{"xt", "[", 
       RowBox[{"[", 
        RowBox[{"125", ";;", "248"}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"gtv", "=", "gv"}], ";", "\n", 
     RowBox[{"gctv", "=", "gv"}], ";", "\n", 
     RowBox[{"ztv", "=", "zv"}], ";", "\n", 
     RowBox[{"zctv", "=", "zv"}], ";", "\n", 
     RowBox[{"jv", "=", "arv"}], ";", "\n", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"jv", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{
            RowBox[{"Position", "[", 
             RowBox[{"Sid", ",", 
              RowBox[{"#", "[", 
               RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
           RowBox[{"#", "[", 
            RowBox[{"[", "2", "]"}], "]"}], ",", 
           RowBox[{"#", "[", 
            RowBox[{"[", "3", "]"}], "]"}]}], "]"}], "]"}], "+=", 
        RowBox[{
         RowBox[{"SPL", "[", 
          RowBox[{"AA", "+", 
           RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
         RowBox[{"[", 
          RowBox[{"43", ",", "1"}], "]"}], "]"}]}], "&"}], "/@", 
      RowBox[{"ArrayReshape", "[", 
       RowBox[{
        RowBox[{"acl", "[", 
         RowBox[{"[", "1", "]"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"6", ",", "3"}], "}"}]}], "]"}]}], ";", "\n", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"gctv", "[", 
         RowBox[{"[", 
          RowBox[{"x", ",", "y"}], "]"}], "]"}], "=", 
        RowBox[{"ConjugateTranspose", "[", 
         RowBox[{"gv", "[", 
          RowBox[{"[", 
           RowBox[{"x", ",", "y"}], "]"}], "]"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "1", ",", "3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"y", ",", "1", ",", "6"}], "}"}]}], "]"}], ";", "\n", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"gtv", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{
            RowBox[{"Position", "[", 
             RowBox[{"Sid", ",", 
              RowBox[{"gindex", "[", 
               RowBox[{"[", 
                RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
           RowBox[{"gindex", "[", 
            RowBox[{"[", 
             RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
        RowBox[{
         RowBox[{"gtv", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{
             RowBox[{"Position", "[", 
              RowBox[{"Sid", ",", 
               RowBox[{"gindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
            RowBox[{"gindex", "[", 
             RowBox[{"[", 
              RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], " ", ".",
          " ", 
         RowBox[{"GG", "[", 
          RowBox[{
           RowBox[{"SPL", "[", 
            RowBox[{"AA", "+", 
             RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
           RowBox[{"[", "x", "]"}], "]"}], "]"}]}]}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "1", ",", "12"}], "}"}]}], "]"}], ";", "\n", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"gctv", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{
            RowBox[{"Position", "[", 
             RowBox[{"Sid", ",", 
              RowBox[{"gindex", "[", 
               RowBox[{"[", 
                RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
           RowBox[{"gindex", "[", 
            RowBox[{"[", 
             RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
        RowBox[{
         RowBox[{"CGG", "[", 
          RowBox[{
           RowBox[{"SPL", "[", 
            RowBox[{"AA", "+", 
             RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
           RowBox[{"[", "x", "]"}], "]"}], "]"}], " ", ".", " ", 
         RowBox[{"gctv", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{
             RowBox[{"Position", "[", 
              RowBox[{"Sid", ",", 
               RowBox[{"gindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
            RowBox[{"gindex", "[", 
             RowBox[{"[", 
              RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}]}]}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "1", ",", "12"}], "}"}]}], "]"}], ";", "\n", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{"{", "\n", 
        RowBox[{
         RowBox[{
          RowBox[{"ztv", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{
              RowBox[{"Position", "[", 
               RowBox[{"Sid", ",", 
                RowBox[{"zindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "2"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
          RowBox[{"ZV", "[", 
           RowBox[{
            RowBox[{"zv", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{
                RowBox[{"Position", "[", 
                 RowBox[{"Sid", ",", 
                  RowBox[{"zindex", "[", 
                   RowBox[{"[", 
                    RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "2"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"SPL", "[", 
              RowBox[{"AA", "+", 
               RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"x", "+", "12"}], "]"}], "]"}]}], "]"}]}], ";", "\n", 
         RowBox[{
          RowBox[{"ztv", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{
              RowBox[{"Position", "[", 
               RowBox[{"Sid", ",", 
                RowBox[{"zindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "3"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
          RowBox[{"ZV", "[", 
           RowBox[{
            RowBox[{"zv", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{
                RowBox[{"Position", "[", 
                 RowBox[{"Sid", ",", 
                  RowBox[{"zindex", "[", 
                   RowBox[{"[", 
                    RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "3"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"SPL", "[", 
              RowBox[{"AA", "+", 
               RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"x", "+", "12"}], "]"}], "]"}]}], "]"}]}], ";", "\n", 
         RowBox[{
          RowBox[{"zctv", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{
              RowBox[{"Position", "[", 
               RowBox[{"Sid", ",", 
                RowBox[{"zindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "2"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
          RowBox[{"CZV", "[", 
           RowBox[{
            RowBox[{"zv", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{
                RowBox[{"Position", "[", 
                 RowBox[{"Sid", ",", 
                  RowBox[{"zindex", "[", 
                   RowBox[{"[", 
                    RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "2"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"SPL", "[", 
              RowBox[{"AA", "+", 
               RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"x", "+", "12"}], "]"}], "]"}]}], "]"}]}], ";", "\n", 
         RowBox[{
          RowBox[{"zctv", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{
              RowBox[{"Position", "[", 
               RowBox[{"Sid", ",", 
                RowBox[{"zindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "3"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
          RowBox[{"CZV", "[", 
           RowBox[{
            RowBox[{"zv", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{
                RowBox[{"Position", "[", 
                 RowBox[{"Sid", ",", 
                  RowBox[{"zindex", "[", 
                   RowBox[{"[", 
                    RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "3"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"SPL", "[", 
              RowBox[{"AA", "+", 
               RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"x", "+", "12"}], "]"}], "]"}]}], "]"}]}], ";"}], "\n", 
        "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"x", ",", "1", ",", "30"}], "}"}]}], "]"}], ";", "\n", 
     RowBox[{"Z", "=", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"gctv", "[", 
          RowBox[{"[", 
           RowBox[{"x", ",", "y"}], "]"}], "]"}], " ", ".", " ", 
         RowBox[{"ztv", "[", 
          RowBox[{"[", 
           RowBox[{"x", ",", "y", ",", "z"}], "]"}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "1", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"y", ",", "1", ",", "6"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"z", ",", "1", ",", "6"}], "}"}]}], "]"}]}], ";", "\n", 
     RowBox[{"ZC", "=", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"zctv", "[", 
          RowBox[{"[", 
           RowBox[{"x", ",", "y", ",", "z"}], "]"}], "]"}], " ", ".", " ", 
         RowBox[{"gtv", "[", 
          RowBox[{"[", 
           RowBox[{"x", ",", "y"}], "]"}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "1", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"y", ",", "1", ",", "6"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"z", ",", "1", ",", "6"}], "}"}]}], "]"}]}], ";", "\n", 
     RowBox[{"jv", "=", "jv"}], ";", "\n", 
     RowBox[{"{", 
      RowBox[{
      "Z", ",", "ZC", ",", "gtv", ",", "gctv", ",", "ztv", ",", "zctv", ",", 
       "jv"}], "}"}]}]}], "\n", "]"}]}], "\n"}], "Input",
 CellLabel->"In[48]:=",ExpressionUUID->"e5cf3707-7ebe-4bb4-b1f8-89ee33b829b4"],

Cell[BoxData[
 RowBox[{
  RowBox[{"ActionDef", "[", "xt_", "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "AA", ",", "AB", ",", "gtv", ",", "gctv", ",", "ztv", ",", "zctv", ",", 
      "jv", ",", "Z", ",", "ZC", ",", "gvs", ",", "zvs", ",", "zcvs"}], "}"}],
     ",", "\n", 
    RowBox[{
     RowBox[{"AA", "=", 
      RowBox[{"xt", "[", 
       RowBox[{"[", 
        RowBox[{"1", ";;", "124"}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"AB", "=", 
      RowBox[{"xt", "[", 
       RowBox[{"[", 
        RowBox[{"125", ";;", "248"}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"gtv", "=", "gv"}], ";", "\n", 
     RowBox[{"gctv", "=", "gv"}], ";", "\n", 
     RowBox[{"ztv", "=", "zv"}], ";", "\n", 
     RowBox[{"zctv", "=", "zv"}], ";", "\n", 
     RowBox[{"jv", "=", "arv"}], ";", "\n", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"jv", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{
            RowBox[{"Position", "[", 
             RowBox[{"Sid", ",", 
              RowBox[{"#", "[", 
               RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
           RowBox[{"#", "[", 
            RowBox[{"[", "2", "]"}], "]"}], ",", 
           RowBox[{"#", "[", 
            RowBox[{"[", "3", "]"}], "]"}]}], "]"}], "]"}], "+=", 
        RowBox[{
         RowBox[{"SPL", "[", 
          RowBox[{"AA", "+", 
           RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
         RowBox[{"[", 
          RowBox[{"43", ",", "1"}], "]"}], "]"}]}], "&"}], "/@", 
      RowBox[{"ArrayReshape", "[", 
       RowBox[{
        RowBox[{"acl", "[", 
         RowBox[{"[", "1", "]"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"6", ",", "3"}], "}"}]}], "]"}]}], ";", "\n", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"gctv", "[", 
         RowBox[{"[", 
          RowBox[{"x", ",", "y"}], "]"}], "]"}], "=", 
        RowBox[{"ConjugateTranspose", "[", 
         RowBox[{"gv", "[", 
          RowBox[{"[", 
           RowBox[{"x", ",", "y"}], "]"}], "]"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "1", ",", "3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"y", ",", "1", ",", "6"}], "}"}]}], "]"}], ";", "\n", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"gtv", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{
            RowBox[{"Position", "[", 
             RowBox[{"Sid", ",", 
              RowBox[{"gindex", "[", 
               RowBox[{"[", 
                RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
           RowBox[{"gindex", "[", 
            RowBox[{"[", 
             RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
        RowBox[{
         RowBox[{"gtv", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{
             RowBox[{"Position", "[", 
              RowBox[{"Sid", ",", 
               RowBox[{"gindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
            RowBox[{"gindex", "[", 
             RowBox[{"[", 
              RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], " ", ".",
          " ", 
         RowBox[{"GG", "[", 
          RowBox[{
           RowBox[{"SPL", "[", 
            RowBox[{"AA", "+", 
             RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
           RowBox[{"[", "x", "]"}], "]"}], "]"}]}]}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "1", ",", "12"}], "}"}]}], "]"}], ";", "\n", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"gctv", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{
            RowBox[{"Position", "[", 
             RowBox[{"Sid", ",", 
              RowBox[{"gindex", "[", 
               RowBox[{"[", 
                RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
           RowBox[{"gindex", "[", 
            RowBox[{"[", 
             RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
        RowBox[{
         RowBox[{"CGG", "[", 
          RowBox[{
           RowBox[{"SPL", "[", 
            RowBox[{"AA", "+", 
             RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
           RowBox[{"[", "x", "]"}], "]"}], "]"}], " ", ".", " ", 
         RowBox[{"gctv", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{
             RowBox[{"Position", "[", 
              RowBox[{"Sid", ",", 
               RowBox[{"gindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
            RowBox[{"gindex", "[", 
             RowBox[{"[", 
              RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}]}]}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "1", ",", "12"}], "}"}]}], "]"}], ";", "\n", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{"{", "\n", 
        RowBox[{
         RowBox[{
          RowBox[{"ztv", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{
              RowBox[{"Position", "[", 
               RowBox[{"Sid", ",", 
                RowBox[{"zindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "2"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
          RowBox[{"ZV", "[", 
           RowBox[{
            RowBox[{"zv", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{
                RowBox[{"Position", "[", 
                 RowBox[{"Sid", ",", 
                  RowBox[{"zindex", "[", 
                   RowBox[{"[", 
                    RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "2"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"SPL", "[", 
              RowBox[{"AA", "+", 
               RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"x", "+", "12"}], "]"}], "]"}]}], "]"}]}], ";", "\n", 
         RowBox[{
          RowBox[{"ztv", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{
              RowBox[{"Position", "[", 
               RowBox[{"Sid", ",", 
                RowBox[{"zindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "3"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
          RowBox[{"ZV", "[", 
           RowBox[{
            RowBox[{"zv", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{
                RowBox[{"Position", "[", 
                 RowBox[{"Sid", ",", 
                  RowBox[{"zindex", "[", 
                   RowBox[{"[", 
                    RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "3"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"SPL", "[", 
              RowBox[{"AA", "+", 
               RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"x", "+", "12"}], "]"}], "]"}]}], "]"}]}], ";", "\n", 
         RowBox[{
          RowBox[{"zctv", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{
              RowBox[{"Position", "[", 
               RowBox[{"Sid", ",", 
                RowBox[{"zindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "2"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
          RowBox[{"CZV", "[", 
           RowBox[{
            RowBox[{"zv", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{
                RowBox[{"Position", "[", 
                 RowBox[{"Sid", ",", 
                  RowBox[{"zindex", "[", 
                   RowBox[{"[", 
                    RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "2"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"SPL", "[", 
              RowBox[{"AA", "+", 
               RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"x", "+", "12"}], "]"}], "]"}]}], "]"}]}], ";", "\n", 
         RowBox[{
          RowBox[{"zctv", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{
              RowBox[{"Position", "[", 
               RowBox[{"Sid", ",", 
                RowBox[{"zindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "3"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
          RowBox[{"CZV", "[", 
           RowBox[{
            RowBox[{"zv", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{
                RowBox[{"Position", "[", 
                 RowBox[{"Sid", ",", 
                  RowBox[{"zindex", "[", 
                   RowBox[{"[", 
                    RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "3"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"SPL", "[", 
              RowBox[{"AA", "+", 
               RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"x", "+", "12"}], "]"}], "]"}]}], "]"}]}], ";"}], "\n", 
        "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"x", ",", "1", ",", "30"}], "}"}]}], "]"}], ";", "\n", 
     RowBox[{"Z", "=", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"gctv", "[", 
          RowBox[{"[", 
           RowBox[{"x", ",", "y"}], "]"}], "]"}], " ", ".", " ", 
         RowBox[{"ztv", "[", 
          RowBox[{"[", 
           RowBox[{"x", ",", "y", ",", "z"}], "]"}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "1", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"y", ",", "1", ",", "6"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"z", ",", "1", ",", "6"}], "}"}]}], "]"}]}], ";", "\n", 
     RowBox[{"ZC", "=", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"zctv", "[", 
          RowBox[{"[", 
           RowBox[{"x", ",", "y", ",", "z"}], "]"}], "]"}], " ", ".", " ", 
         RowBox[{"gtv", "[", 
          RowBox[{"[", 
           RowBox[{"x", ",", "y"}], "]"}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "1", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"y", ",", "1", ",", "6"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"z", ",", "1", ",", "6"}], "}"}]}], "]"}]}], ";", "\n", 
     RowBox[{"jv", "=", 
      RowBox[{"jv", "*", "\[Lambda]"}]}], ";", "\n", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"ActionS1", "[", 
               RowBox[{"#", ",", "Z", ",", "ZC", ",", "jv"}], "]"}], "&"}], "/@", 
             RowBox[{"acl", "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "//", "Total"}], ")"}], "/", 
          RowBox[{"jv", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "4", ",", "2"}], "]"}], "]"}]}], "/", 
         "\[Gamma]"}], ")"}], "//", "Im"}], ")"}]}]}], "\n", "]"}]}]], "Input",
 CellLabel->"In[75]:=",ExpressionUUID->"d3437e65-90d1-44e9-bafe-8783ea4081a8"],

Cell[BoxData[
 RowBox[{
  RowBox[{"ActionG", "[", "xt_", "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "AA", ",", "AB", ",", "gtv", ",", "gctv", ",", "ztv", ",", "zctv", ",", 
      "jv", ",", "Z", ",", "ZC", ",", "gvs", ",", "zvs", ",", "zcvs"}], "}"}],
     ",", "\n", 
    RowBox[{
     RowBox[{"AA", "=", 
      RowBox[{"xt", "[", 
       RowBox[{"[", 
        RowBox[{"1", ";;", "124"}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"AB", "=", 
      RowBox[{"xt", "[", 
       RowBox[{"[", 
        RowBox[{"125", ";;", "248"}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"gtv", "=", "gv"}], ";", "\n", 
     RowBox[{"gctv", "=", "gv"}], ";", "\n", 
     RowBox[{"ztv", "=", "zv"}], ";", "\n", 
     RowBox[{"zctv", "=", "zv"}], ";", "\n", 
     RowBox[{"jv", "=", "arv"}], ";", "\n", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"jv", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{
            RowBox[{"Position", "[", 
             RowBox[{"Sid", ",", 
              RowBox[{"#", "[", 
               RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
           RowBox[{"#", "[", 
            RowBox[{"[", "2", "]"}], "]"}], ",", 
           RowBox[{"#", "[", 
            RowBox[{"[", "3", "]"}], "]"}]}], "]"}], "]"}], "+=", 
        RowBox[{
         RowBox[{"SPL", "[", 
          RowBox[{"AA", "+", 
           RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
         RowBox[{"[", 
          RowBox[{"43", ",", "1"}], "]"}], "]"}]}], "&"}], "/@", 
      RowBox[{"ArrayReshape", "[", 
       RowBox[{
        RowBox[{"acl", "[", 
         RowBox[{"[", "1", "]"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"6", ",", "3"}], "}"}]}], "]"}]}], ";", "\n", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"gctv", "[", 
         RowBox[{"[", 
          RowBox[{"x", ",", "y"}], "]"}], "]"}], "=", 
        RowBox[{"ConjugateTranspose", "[", 
         RowBox[{"gv", "[", 
          RowBox[{"[", 
           RowBox[{"x", ",", "y"}], "]"}], "]"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "1", ",", "3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"y", ",", "1", ",", "6"}], "}"}]}], "]"}], ";", "\n", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"gtv", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{
            RowBox[{"Position", "[", 
             RowBox[{"Sid", ",", 
              RowBox[{"gindex", "[", 
               RowBox[{"[", 
                RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
           RowBox[{"gindex", "[", 
            RowBox[{"[", 
             RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
        RowBox[{"GG", "[", 
         RowBox[{
          RowBox[{"SPL", "[", 
           RowBox[{"AA", "+", 
            RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
          RowBox[{"[", "x", "]"}], "]"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "1", ",", "12"}], "}"}]}], "]"}], ";", "\n", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"gctv", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{
            RowBox[{"Position", "[", 
             RowBox[{"Sid", ",", 
              RowBox[{"gindex", "[", 
               RowBox[{"[", 
                RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
           RowBox[{"gindex", "[", 
            RowBox[{"[", 
             RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
        RowBox[{"CGG", "[", 
         RowBox[{
          RowBox[{"SPL", "[", 
           RowBox[{"AA", "+", 
            RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
          RowBox[{"[", "x", "]"}], "]"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "1", ",", "12"}], "}"}]}], "]"}], ";", "\n", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{"{", "\n", 
        RowBox[{
         RowBox[{
          RowBox[{"ztv", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{
              RowBox[{"Position", "[", 
               RowBox[{"Sid", ",", 
                RowBox[{"zindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "2"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
          RowBox[{"ZV", "[", 
           RowBox[{
            RowBox[{"zv", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{
                RowBox[{"Position", "[", 
                 RowBox[{"Sid", ",", 
                  RowBox[{"zindex", "[", 
                   RowBox[{"[", 
                    RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "2"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"SPL", "[", 
              RowBox[{"AA", "+", 
               RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"x", "+", "12"}], "]"}], "]"}]}], "]"}]}], ";", "\n", 
         RowBox[{
          RowBox[{"ztv", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{
              RowBox[{"Position", "[", 
               RowBox[{"Sid", ",", 
                RowBox[{"zindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "3"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
          RowBox[{"ZV", "[", 
           RowBox[{
            RowBox[{"zv", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{
                RowBox[{"Position", "[", 
                 RowBox[{"Sid", ",", 
                  RowBox[{"zindex", "[", 
                   RowBox[{"[", 
                    RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "3"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"SPL", "[", 
              RowBox[{"AA", "+", 
               RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"x", "+", "12"}], "]"}], "]"}]}], "]"}]}], ";", "\n", 
         RowBox[{
          RowBox[{"zctv", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{
              RowBox[{"Position", "[", 
               RowBox[{"Sid", ",", 
                RowBox[{"zindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "2"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
          RowBox[{"CZV", "[", 
           RowBox[{
            RowBox[{"zv", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{
                RowBox[{"Position", "[", 
                 RowBox[{"Sid", ",", 
                  RowBox[{"zindex", "[", 
                   RowBox[{"[", 
                    RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "2"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"SPL", "[", 
              RowBox[{"AA", "+", 
               RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"x", "+", "12"}], "]"}], "]"}]}], "]"}]}], ";", "\n", 
         RowBox[{
          RowBox[{"zctv", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{
              RowBox[{"Position", "[", 
               RowBox[{"Sid", ",", 
                RowBox[{"zindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "3"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
          RowBox[{"CZV", "[", 
           RowBox[{
            RowBox[{"zv", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{
                RowBox[{"Position", "[", 
                 RowBox[{"Sid", ",", 
                  RowBox[{"zindex", "[", 
                   RowBox[{"[", 
                    RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "3"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"SPL", "[", 
              RowBox[{"AA", "+", 
               RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"x", "+", "12"}], "]"}], "]"}]}], "]"}]}], ";"}], "\n", 
        "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"x", ",", "1", ",", "30"}], "}"}]}], "]"}], ";", "\n", 
     RowBox[{"jv", "=", 
      RowBox[{"jv", "*", "\[Lambda]"}]}], ";", "\n", 
     RowBox[{"{", 
      RowBox[{"gtv", ",", "gctv", ",", "ztv", ",", "zctv"}], "}"}]}]}], "\n", 
   "]"}]}]], "Input",
 CellLabel->"In[76]:=",ExpressionUUID->"5d25a9e6-09f6-45e6-847f-7bde4611e788"],

Cell[BoxData[
 RowBox[{
  RowBox[{"MOD", "[", "g_", "]"}], ":=", 
  RowBox[{"Chop", "[", 
   RowBox[{
    RowBox[{"Inverse", "[", 
     RowBox[{"ConjugateTranspose", "[", 
      RowBox[{"Inverse", "[", "g", "]"}], "]"}], "]"}], ",", 
    RowBox[{"10", "^", 
     RowBox[{"(", 
      RowBox[{"-", "14"}], ")"}]}]}], "]"}]}]], "Input",
 CellLabel->"In[77]:=",ExpressionUUID->"0bdd88b2-830a-40e7-b0ac-ecfd73487f89"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"gv", ",", "zv", ",", "xv", ",", "arv", ",", "sol", ",", "ask"}], 
    "}"}], "=", 
   RowBox[{"Boundary", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1"}], ",", "1", ",", "1"}], "}"}], ",", "ccr", ",", "3", 
     ",", "Vertex"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"gv", ",", "zv", ",", "xv", ",", "arv"}], "}"}], "=", 
   RowBox[{"Chop", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"gv", ",", "zv", ",", "xv", ",", "arv"}], "}"}], ",", 
     RowBox[{"10", "^", 
      RowBox[{"(", 
       RowBox[{"-", "14"}], ")"}]}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"gvs", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"Inverse", "[", 
         RowBox[{
          RowBox[{"gv", "[", 
           RowBox[{"[", 
            RowBox[{"x", ",", 
             RowBox[{"Tfg", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], " ", 
          ".", " ", 
          RowBox[{"MatrixExp", "[", 
           RowBox[{"I", "*", "0.3", "*", 
            RowBox[{"PauliMatrix", "[", "1", "]"}]}], "]"}]}], "]"}], " ", 
        ".", " ", "#"}], "&"}], "/@", 
      RowBox[{"gv", "[", 
       RowBox[{"[", "x", "]"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "1", ",", "3"}], "}"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"zvss", "=", 
   RowBox[{"Chop", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"Map", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"MOD", "[", 
            RowBox[{
             RowBox[{"gv", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", 
                RowBox[{"Tfg", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], " ", 
             ".", " ", 
             RowBox[{"MatrixExp", "[", 
              RowBox[{"I", "*", "0.3", "*", 
               RowBox[{"PauliMatrix", "[", "1", "]"}]}], "]"}]}], "]"}], " ", 
           ".", " ", "#"}], "&"}], ",", 
         RowBox[{"zv", "[", 
          RowBox[{"[", "x", "]"}], "]"}], ",", 
         RowBox[{"{", "2", "}"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "1", ",", "3"}], "}"}]}], "]"}], ",", 
     RowBox[{"10", "^", 
      RowBox[{"(", 
       RowBox[{"-", "14"}], ")"}]}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"zvss", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"zvss", "[", 
         RowBox[{"[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "1"}], "]"}], "]"}], "!=", 
        "0"}], ",", 
       RowBox[{
        RowBox[{"zvss", "[", 
         RowBox[{"[", 
          RowBox[{"t", ",", "x", ",", "y"}], "]"}], "]"}], "/", 
        RowBox[{"zvss", "[", 
         RowBox[{"[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "1"}], "]"}], "]"}]}], ",", 
       RowBox[{"zvss", "[", 
        RowBox[{"[", 
         RowBox[{"t", ",", "x", ",", "y"}], "]"}], "]"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "1", ",", "3"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "1", ",", "6"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"y", ",", "1", ",", "6"}], "}"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"gv", "=", "gvs"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"zv", "=", "zvss"}], ";"}]}], "Input",
 CellLabel->"In[78]:=",ExpressionUUID->"e7bf45b8-3e41-43d7-ad33-4261de6ba4f8"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Deficient", "[", 
  RowBox[{"vid", ",", "Sid", ",", 
   RowBox[{"asd", "[", 
    RowBox[{"[", 
     RowBox[{"3", ",", "2"}], "]"}], "]"}]}], "]"}], "\n", 
 RowBox[{"ActionDef", "[", 
  RowBox[{"ConstantArray", "[", 
   RowBox[{"0", ",", "248"}], "]"}], "]"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"Chop", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"Map", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"CrTests2", "[", 
           RowBox[{"x", ",", 
            RowBox[{"#", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", 
            RowBox[{"#", "[", 
             RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "&"}], ",", 
         RowBox[{"Subsets", "[", 
          RowBox[{
           RowBox[{"vid", "/.", 
            RowBox[{
             RowBox[{"Sid", "[", 
              RowBox[{"[", "x", "]"}], "]"}], "->", "Nothing"}]}], ",", 
           RowBox[{"{", "2", "}"}]}], "]"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "1", ",", "3"}], "}"}]}], "]"}], ",", 
     RowBox[{"10", "^", 
      RowBox[{"-", "16"}]}]}], "]"}], "//", "Flatten"}], "//", "Norm"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"Chop", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"x", "==", "y"}], ",", "Nothing", ",", 
         RowBox[{"Map", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"{", 
             RowBox[{"CrTest1", "[", 
              RowBox[{
               RowBox[{"Sid", "[", 
                RowBox[{"[", "x", "]"}], "]"}], ",", 
               RowBox[{"Sid", "[", 
                RowBox[{"[", "y", "]"}], "]"}], ",", "#"}], "]"}], "}"}], 
            "&"}], ",", 
           RowBox[{"vid", "/.", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{
               RowBox[{"Sid", "[", 
                RowBox[{"[", "x", "]"}], "]"}], "->", "Nothing"}], ",", 
              RowBox[{
               RowBox[{"Sid", "[", 
                RowBox[{"[", "y", "]"}], "]"}], "->", "Nothing"}]}], 
             "}"}]}]}], "]"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "1", ",", "3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"y", ",", "1", ",", "3"}], "}"}]}], "]"}], ",", 
     RowBox[{"10", "^", 
      RowBox[{"-", "16"}]}]}], "]"}], "//", "Flatten"}], "//", "Norm"}], "\n", 
 RowBox[{"Chop", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"Map", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"CrTests3", "[", 
          RowBox[{
           RowBox[{"Sid", "[", 
            RowBox[{"[", "x", "]"}], "]"}], ",", "#"}], "]"}], "&"}], ",", 
        RowBox[{"vid", "/.", 
         RowBox[{
          RowBox[{"Sid", "[", 
           RowBox[{"[", "x", "]"}], "]"}], "->", "Nothing"}]}]}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", "1", ",", "3"}], "}"}]}], "]"}], "//", "Norm"}], ",", 
   RowBox[{"10", "^", 
    RowBox[{"-", "16"}]}]}], "]"}]}], "Input",
 CellLabel->"In[85]:=",ExpressionUUID->"8c633502-fcc0-4519-8ac2-aaf686175a47"],

Cell[BoxData[
 RowBox[{"-", "0.939947835942686`"}]], "Output",
 CellChangeTimes->{3.8654056783756495`*^9, 3.86540581134266*^9, 
  3.8654064432531395`*^9},
 CellLabel->"Out[85]=",ExpressionUUID->"bb7ac873-6f95-4e57-a8c5-dde0f61925b4"],

Cell[BoxData[
 RowBox[{"-", "0.9399478359426747`"}]], "Output",
 CellChangeTimes->{3.8654056783756495`*^9, 3.86540581134266*^9, 
  3.8654064432631397`*^9},
 CellLabel->"Out[86]=",ExpressionUUID->"535804c2-9fa2-430f-ab4b-54b2abeaf1ee"],

Cell[BoxData["2.0860342621849772`*^-14"], "Output",
 CellChangeTimes->{3.8654056783756495`*^9, 3.86540581134266*^9, 
  3.865406443268139*^9},
 CellLabel->"Out[87]=",ExpressionUUID->"47e6def2-c78d-4686-9906-bb259ae66db4"],

Cell[BoxData["1.4201310531088648`*^-14"], "Output",
 CellChangeTimes->{3.8654056783756495`*^9, 3.86540581134266*^9, 
  3.8654064432701387`*^9},
 CellLabel->"Out[88]=",ExpressionUUID->"e061cba6-cf23-40b4-aac6-7aa692801cce"],

Cell[BoxData["3.732363733852095`*^-14"], "Output",
 CellChangeTimes->{3.8654056783756495`*^9, 3.86540581134266*^9, 
  3.8654064432751403`*^9},
 CellLabel->"Out[89]=",ExpressionUUID->"4fa03aeb-1cf8-404d-afb6-bb9a9dc40001"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"DerSym", "[", 
    RowBox[{"x_", ",", "aa_"}], "]"}], ":=", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"aa1", "=", "aa"}], ",", "cmc"}], "}"}], ",", "\n", 
     RowBox[{
      RowBox[{
       RowBox[{"aa1", "[", 
        RowBox[{"[", "x", "]"}], "]"}], "=", "cmc"}], ";", "\n", 
      RowBox[{
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"ActionF", "[", "aa1", "]"}], ",", "cmc"}], "]"}], "/.", 
       RowBox[{"cmc", "->", 
        RowBox[{"aa", "[", 
         RowBox[{"[", "x", "]"}], "]"}]}]}]}]}], "\n", "]"}]}], "\n"}], "\n", 
 RowBox[{
  RowBox[{"DerSym2", "[", 
   RowBox[{"x_", ",", "y_", ",", "aa_"}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"aa1", "=", "aa"}], ",", "cmc1", ",", "cmc2", ",", "re", ",", 
      "res"}], "}"}], ",", "\n", 
    RowBox[{
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"x", "==", "y"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"aa1", "[", 
           RowBox[{"[", "x", "]"}], "]"}], "=", "cmc1"}], ";", 
         RowBox[{"re", "=", 
          RowBox[{
           RowBox[{"D", "[", 
            RowBox[{
             RowBox[{"D", "[", 
              RowBox[{
               RowBox[{"ActionF", "[", "aa1", "]"}], ",", "cmc1"}], "]"}], 
             ",", "cmc1"}], "]"}], "/.", 
           RowBox[{"cmc1", "->", 
            RowBox[{"aa", "[", 
             RowBox[{"[", "x", "]"}], "]"}]}]}]}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"aa1", "[", 
           RowBox[{"[", "x", "]"}], "]"}], "=", "cmc1"}], ";", 
         RowBox[{
          RowBox[{"aa1", "[", 
           RowBox[{"[", "y", "]"}], "]"}], "=", "cmc2"}], ";", 
         RowBox[{"re", "=", 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{"D", "[", 
             RowBox[{
              RowBox[{"ActionF", "[", "aa1", "]"}], ",", "cmc1"}], "]"}], ",",
             "cmc2"}], "]"}]}], ";"}], "}"}]}], "]"}], ";", "\n", "\t", 
     RowBox[{"re", "/.", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"cmc1", "->", 
         RowBox[{"aa", "[", 
          RowBox[{"[", "x", "]"}], "]"}]}], ",", 
        RowBox[{"cmc2", "->", 
         RowBox[{"aa", "[", 
          RowBox[{"[", "y", "]"}], "]"}]}]}], "}"}]}]}]}], "\n", 
   "]"}]}], "\n"}], "Input",
 CellLabel->"In[90]:=",ExpressionUUID->"18cad927-33bb-42a2-8958-1d671b627d6e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"AAC", "=", 
   RowBox[{"ConstantArray", "[", 
    RowBox[{"0", ",", "248"}], "]"}]}], ";"}]], "Input",
 CellLabel->"In[92]:=",ExpressionUUID->"d8c8cb7e-55d4-4e1d-b3fa-5073e08cf682"],

Cell[BoxData[
 RowBox[{
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{"FileExistsQ", "[", "tempfile6", "]"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Get", "[", "tempfile6", "]"}], ";"}], "}"}], ",", 
    RowBox[{"{", "\n", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"t1", "=", "248"}], ";", 
        RowBox[{"t2", "=", "124"}], ";", "\n", 
        RowBox[{"AZ", "=", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"ToExpression", "[", 
            RowBox[{"\"\<XX\>\"", "<>", 
             RowBox[{"ToString", "[", "x", "]"}]}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"x", ",", "1", ",", "t1"}], "}"}]}], "]"}]}], ";", "\n", 
        RowBox[{"asxx", "=", 
         RowBox[{"ParallelTable", "[", 
          RowBox[{
           RowBox[{"D", "[", 
            RowBox[{
             RowBox[{"D", "[", 
              RowBox[{
               RowBox[{"ActionFK", "[", 
                RowBox[{"AZ", ",", "XC"}], "]"}], ",", 
               RowBox[{"AZ", "[", 
                RowBox[{"[", "x", "]"}], "]"}]}], "]"}], ",", 
             RowBox[{"AZ", "[", 
              RowBox[{"[", "y", "]"}], "]"}]}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"x", ",", "1", ",", "t2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"y", ",", "1", ",", "t2"}], "}"}]}], "]"}]}], ";", "\n", 
        RowBox[{"asx1", "=", 
         RowBox[{"Flatten", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", 
             RowBox[{"Re", "[", 
              RowBox[{"ParallelTable", "[", 
               RowBox[{
                RowBox[{"D", "[", 
                 RowBox[{
                  RowBox[{"ActionFK", "[", 
                   RowBox[{"AZ", ",", "XC"}], "]"}], ",", 
                  RowBox[{"AZ", "[", 
                   RowBox[{"[", "x", "]"}], "]"}]}], "]"}], ",", 
                RowBox[{"{", 
                 RowBox[{"x", ",", "1", ",", "t2"}], "}"}]}], "]"}], "]"}]}], 
            ",", 
            RowBox[{"Im", "[", 
             RowBox[{"Table", "[", 
              RowBox[{
               RowBox[{"D", "[", 
                RowBox[{
                 RowBox[{"ActionFK", "[", 
                  RowBox[{"AZ", ",", "XC"}], "]"}], ",", 
                 RowBox[{"AZ", "[", 
                  RowBox[{"[", "x", "]"}], "]"}]}], "]"}], ",", 
               RowBox[{"{", 
                RowBox[{"x", ",", "1", ",", "t2"}], "}"}]}], "]"}], "]"}]}], 
           "}"}], "]"}]}], ";", "\n", 
        RowBox[{"asx3", "=", 
         RowBox[{"ParallelTable", "[", 
          RowBox[{
           RowBox[{"D", "[", 
            RowBox[{
             RowBox[{"ActionFK", "[", 
              RowBox[{"AZ", ",", "XC"}], "]"}], ",", 
             RowBox[{"AZ", "[", 
              RowBox[{"[", "x", "]"}], "]"}]}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"x", ",", "1", ",", "t2"}], "}"}]}], "]"}]}], ";", "\n", 
        RowBox[{
         RowBox[{"F3", "[", 
          RowBox[{"ppp_", ",", "xc_"}], "]"}], ":=", 
         RowBox[{
          RowBox[{"ActionFK", "[", 
           RowBox[{"AZ", ",", "xc"}], "]"}], "/.", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"AZ", "[", 
              RowBox[{"[", "a", "]"}], "]"}], "->", 
             RowBox[{"ppp", "[", 
              RowBox[{"[", "a", "]"}], "]"}]}], ",", 
            RowBox[{"{", 
             RowBox[{"a", ",", "1", ",", "t1"}], "}"}]}], "]"}]}]}], ";", 
        "\n", 
        RowBox[{
         RowBox[{"F1", "[", 
          RowBox[{"ppp_", ",", "xc_"}], "]"}], ":=", 
         RowBox[{
          RowBox[{"asx1", "/.", 
           RowBox[{"Table", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"AZ", "[", 
               RowBox[{"[", "a", "]"}], "]"}], "->", 
              RowBox[{"ppp", "[", 
               RowBox[{"[", "a", "]"}], "]"}]}], ",", 
             RowBox[{"{", 
              RowBox[{"a", ",", "1", ",", "t1"}], "}"}]}], "]"}]}], "/.", 
          RowBox[{"XC", "->", "xc"}]}]}], ";", "\n", 
        RowBox[{
         RowBox[{"F2", "[", 
          RowBox[{"ppp_", ",", "xc_"}], "]"}], ":=", 
         RowBox[{
          RowBox[{"asxx", "/.", 
           RowBox[{"Table", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"AZ", "[", 
               RowBox[{"[", "a", "]"}], "]"}], "->", 
              RowBox[{"ppp", "[", 
               RowBox[{"[", "a", "]"}], "]"}]}], ",", 
             RowBox[{"{", 
              RowBox[{"a", ",", "1", ",", "t1"}], "}"}]}], "]"}]}], "/.", 
          RowBox[{"XC", "->", "xc"}]}]}], ";", "\n", 
        RowBox[{
         RowBox[{"F4", "[", 
          RowBox[{"ppp_", ",", "xc_"}], "]"}], ":=", 
         RowBox[{
          RowBox[{"asx3", "/.", 
           RowBox[{"Table", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"AZ", "[", 
               RowBox[{"[", "a", "]"}], "]"}], "->", 
              RowBox[{"ppp", "[", 
               RowBox[{"[", "a", "]"}], "]"}]}], ",", 
             RowBox[{"{", 
              RowBox[{"a", ",", "1", ",", "t1"}], "}"}]}], "]"}]}], "/.", 
          RowBox[{"XC", "->", "xc"}]}]}], ";", "\n", 
        RowBox[{"P1", "=", 
         RowBox[{
          RowBox[{"Compile", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"ppp", ",", "_Real", ",", "1"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"xc", ",", "_Real"}], "}"}]}], "}"}], ",", 
            RowBox[{"Evaluate", "[", 
             RowBox[{"F1", "[", 
              RowBox[{"ppp", ",", "xc"}], "]"}], "]"}], ",", 
            RowBox[{"RuntimeAttributes", "->", 
             RowBox[{"{", "Listable", "}"}]}], ",", 
            RowBox[{"Parallelization", "->", "True"}], ",", 
            RowBox[{"CompilationTarget", "->", "\"\<C\>\""}]}], "]"}], "//", 
          "Quiet"}]}], ";", "\n", 
        RowBox[{"P2", "=", 
         RowBox[{
          RowBox[{"Compile", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"ppp", ",", "_Real", ",", "1"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"xc", ",", "_Real"}], "}"}]}], "}"}], ",", 
            RowBox[{"Evaluate", "[", 
             RowBox[{"F2", "[", 
              RowBox[{"ppp", ",", "xc"}], "]"}], "]"}], ",", 
            RowBox[{"RuntimeAttributes", "->", 
             RowBox[{"{", "Listable", "}"}]}], ",", 
            RowBox[{"Parallelization", "->", "True"}], ",", 
            RowBox[{"CompilationTarget", "->", "\"\<C\>\""}]}], "]"}], "//", 
          "Quiet"}]}], ";", "\n", 
        RowBox[{"P3", "=", 
         RowBox[{
          RowBox[{"Compile", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"ppp", ",", "_Real", ",", "1"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"xc", ",", "_Real"}], "}"}]}], "}"}], ",", 
            RowBox[{"Evaluate", "[", 
             RowBox[{"F3", "[", 
              RowBox[{"ppp", ",", "xc"}], "]"}], "]"}], ",", 
            RowBox[{"RuntimeAttributes", "->", 
             RowBox[{"{", "Listable", "}"}]}], ",", 
            RowBox[{"Parallelization", "->", "True"}], ",", 
            RowBox[{"CompilationTarget", "->", "\"\<C\>\""}]}], "]"}], "//", 
          "Quiet"}]}], ";", "\n", 
        RowBox[{"P4", "=", 
         RowBox[{
          RowBox[{"Compile", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"ppp", ",", "_Real", ",", "1"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"xc", ",", "_Real"}], "}"}]}], "}"}], ",", 
            RowBox[{"Evaluate", "[", 
             RowBox[{"F4", "[", 
              RowBox[{"ppp", ",", "xc"}], "]"}], "]"}], ",", 
            RowBox[{"RuntimeAttributes", "->", 
             RowBox[{"{", "Listable", "}"}]}], ",", 
            RowBox[{"Parallelization", "->", "True"}], ",", 
            RowBox[{"CompilationTarget", "->", "\"\<C\>\""}]}], "]"}], "//", 
          "Quiet"}]}], ";", "\n", 
        RowBox[{"DumpSave", "[", 
         RowBox[{"tempfile6", ",", 
          RowBox[{"{", 
           RowBox[{"P1", ",", "P2", ",", "P3", ",", "P4"}], "}"}]}], "]"}], 
        ";"}], "//", "Quite"}], ";"}], "\n", "}"}]}], "]"}], ";"}]], "Input",
 CellLabel->"In[93]:=",ExpressionUUID->"d4136fbb-5218-463c-91fc-ea7893b1a62f"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"tte", "=", 
    RowBox[{"San", "[", 
     RowBox[{"gv", "[", 
      RowBox[{"[", 
       RowBox[{"2", ",", "2"}], "]"}], "]"}], "]"}]}], ";"}], "*)"}]], "Input",
 CellLabel->"In[94]:=",ExpressionUUID->"3bc3ea83-73cd-41fa-a733-88c5f494ef4d"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"gev", "=", "gv"}], ";", 
   RowBox[{"zev", "=", "zv"}], ";"}], "*)"}]], "Input",
 CellLabel->"In[95]:=",ExpressionUUID->"222448d6-0cf7-4ea5-97fb-0ce7595a4cea"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"F", "[", "k_", "]"}], ":=", 
    RowBox[{"Block", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"gv", "=", "gev"}], ",", 
        RowBox[{"zv", "=", "zev"}]}], "}"}], ",", "\n", 
      RowBox[{
       RowBox[{"zv", "=", 
        RowBox[{"Zparity", "[", "k", "]"}]}], ";", "\n", 
       RowBox[{"gv", "=", 
        RowBox[{"Gparity", "[", "k", "]"}]}], ";", "\n", 
       RowBox[{"ActionF", "[", 
        RowBox[{"ConstantArray", "[", 
         RowBox[{"0", ",", "248"}], "]"}], "]"}]}]}], "\n", "]"}]}], "*)"}], 
  "\n", 
  RowBox[{
   RowBox[{
    RowBox[{"San", "[", "gv_", "]"}], ":=", 
    RowBox[{"Block", "[", 
     RowBox[{
      RowBox[{"{", "\n", 
       RowBox[{
       "a1", ",", "a2", ",", "Ress", ",", "a3", ",", "x1", ",", "x2", ",", 
        "y1", ",", "a4"}], " ", "\n", "}"}], ",", "\n", 
      RowBox[{
       RowBox[{"a1", "=", 
        RowBox[{"Chop", "[", 
         RowBox[{"Inverse", "[", 
          RowBox[{
           RowBox[{"ConjugateTranspose", "[", "gv", "]"}], " ", ".", " ", 
           "gv"}], "]"}], "]"}]}], ";", "\n", 
       RowBox[{"a2", "=", 
        RowBox[{"ZEXP", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"x1", ",", "x2"}], "}"}], ",", 
          RowBox[{"{", "y1", "}"}]}], "]"}]}], ";", "\n", 
       RowBox[{"Ress", "=", 
        RowBox[{"NSolve", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"ReIm", "[", 
            RowBox[{
             RowBox[{"Flatten", "[", 
              RowBox[{"(", 
               RowBox[{"a1", " ", ".", " ", 
                RowBox[{"ConjugateTranspose", "[", "a1", "]"}]}], ")"}], 
              "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"2", ";;", "4"}], "]"}], "]"}], "]"}], "==", 
           RowBox[{"ComplexExpand", "[", 
            RowBox[{"ReIm", "[", 
             RowBox[{
              RowBox[{"Flatten", "[", 
               RowBox[{"a2", " ", ".", " ", 
                RowBox[{"ConjugateTranspose", "[", "a2", "]"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"2", ";;", "4"}], "]"}], "]"}], "]"}], "]"}]}], ",", 
          RowBox[{"{", 
           RowBox[{"x1", ",", "x2", ",", "y1"}], "}"}]}], "]"}]}], ";", "\n", 
       RowBox[{"a3", "=", 
        RowBox[{"a2", "/.", 
         RowBox[{"Ress", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}]}], ";", "\n", 
       RowBox[{"a4", "=", 
        RowBox[{"Chop", "[", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"ConjugateTranspose", "[", "gv", "]"}], " ", ".", " ", 
            "gv"}], ")"}], " ", ".", " ", "a3"}], "]"}]}], ";", "\n", 
       RowBox[{"{", 
        RowBox[{"a3", ",", "a4"}], "}"}]}]}], "\n", "]"}]}], "\n", 
   RowBox[{
    RowBox[{"San2", "[", "gv_", "]"}], ":=", 
    RowBox[{"Block", "[", 
     RowBox[{
      RowBox[{"{", "\n", 
       RowBox[{
       "a1", ",", "a2", ",", "Ress", ",", "a3", ",", "x1", ",", "x2", ",", 
        "y1", ",", "a4"}], " ", "\n", "}"}], ",", "\n", 
      RowBox[{
       RowBox[{"a1", "=", 
        RowBox[{"Chop", "[", 
         RowBox[{"Inverse", "[", 
          RowBox[{
           RowBox[{"ConjugateTranspose", "[", "gv", "]"}], " ", ".", " ", 
           "gv"}], "]"}], "]"}]}], ";", "\n", 
       RowBox[{"a2", "=", 
        RowBox[{"ZEXP", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"x1", ",", "x2"}], "}"}], ",", 
          RowBox[{"{", "y1", "}"}]}], "]"}]}], ";", "\n", 
       RowBox[{"Ress", "=", 
        RowBox[{"NSolve", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"ReIm", "[", 
            RowBox[{
             RowBox[{"Flatten", "[", 
              RowBox[{"(", "a1", ")"}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"2", ";;", "4"}], "]"}], "]"}], "]"}], "==", 
           RowBox[{"ComplexExpand", "[", 
            RowBox[{"ReIm", "[", 
             RowBox[{
              RowBox[{"Flatten", "[", "a2", " ", "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"2", ";;", "4"}], "]"}], "]"}], "]"}], "]"}]}], ",", 
          RowBox[{"{", 
           RowBox[{"x1", ",", "x2", ",", "y1"}], "}"}]}], "]"}]}], ";", "\n", 
       RowBox[{"a3", "=", 
        RowBox[{"a2", "/.", 
         RowBox[{"Ress", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}]}], ";", "\n", 
       RowBox[{"a4", "=", 
        RowBox[{"Chop", "[", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"ConjugateTranspose", "[", "gv", "]"}], " ", ".", " ", 
            "gv"}], ")"}], " ", ".", " ", "a3"}], "]"}]}], ";", "\n", 
       RowBox[{"{", 
        RowBox[{"a3", ",", "a4"}], "}"}]}]}], "\n", "]"}]}]}]}]], "Input",
 CellLabel->"In[96]:=",ExpressionUUID->"759a5652-1351-4113-af2d-c1ff14a7b1e1"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Zparity", "[", "b_", "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", "\n", "zsc", "\n", "}"}], ",", "\n", 
    RowBox[{
     RowBox[{"zsc", "=", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"b", "[", 
            RowBox[{"[", "x", "]"}], "]"}], "==", "1"}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"gv", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "y"}], "]"}], "]"}], " ", ".", " ", 
             RowBox[{"ConjugateTranspose", "[", 
              RowBox[{"gv", "[", 
               RowBox[{"[", 
                RowBox[{"x", ",", "y"}], "]"}], "]"}], "]"}], " ", ".", " ", 
             "#"}], "&"}], "/@", 
           RowBox[{"zv", "[", 
            RowBox[{"[", 
             RowBox[{"x", ",", "y"}], "]"}], "]"}]}], ",", 
          RowBox[{"zv", "[", 
           RowBox[{"[", 
            RowBox[{"x", ",", "y"}], "]"}], "]"}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "1", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"y", ",", "1", ",", "6"}], "}"}]}], "]"}]}], ";", "\n", 
     RowBox[{"Chop", "[", 
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"zsc", "[", 
             RowBox[{"[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "1"}], "]"}], "]"}], "!=",
             "0"}], ",", 
           RowBox[{
            RowBox[{"zsc", "[", 
             RowBox[{"[", 
              RowBox[{"t", ",", "x", ",", "y"}], "]"}], "]"}], "/", 
            RowBox[{"zsc", "[", 
             RowBox[{"[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "1"}], "]"}], "]"}]}], 
           ",", 
           RowBox[{"zsc", "[", 
            RowBox[{"[", 
             RowBox[{"t", ",", "x", ",", "y"}], "]"}], "]"}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"t", ",", "1", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", "1", ",", "6"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"y", ",", "1", ",", "6"}], "}"}]}], "]"}], ",", 
       RowBox[{"10", "^", 
        RowBox[{"(", 
         RowBox[{"-", "14"}], ")"}]}]}], "]"}]}]}], "\n", "]"}]}]], "Input",
 CellLabel->"In[98]:=",ExpressionUUID->"23e8f2d7-7609-4f2b-8988-3d8975e20b03"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Gparity", "[", "k_", "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"a1", ",", "a2", ",", 
      RowBox[{"cfg", "=", 
       RowBox[{
        RowBox[{"k", "*", "Sfg"}], "/.", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "0"}], "}"}], "->", "Nothing"}]}]}]}], "\n", 
     "}"}], ",", "\n", 
    RowBox[{
     RowBox[{"a1", "=", 
      RowBox[{"Map", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"San", "[", 
           RowBox[{"gv", "[", 
            RowBox[{"[", 
             RowBox[{
              RowBox[{
               RowBox[{"Position", "[", 
                RowBox[{"Sid", ",", 
                 RowBox[{"#", "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "[", 
               RowBox[{"[", 
                RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
              RowBox[{"#", "[", 
               RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "]"}], "]"}], "[", 
          RowBox[{"[", "2", "]"}], "]"}], "&"}], ",", "cfg"}], "]"}]}], ";", 
     "\n", 
     RowBox[{"a2", "=", 
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"k", "[", 
             RowBox[{"[", "y", "]"}], "]"}], "==", "1"}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{"Inverse", "@", 
              RowBox[{"ConjugateTranspose", "@", "#"}]}], "&"}], "/@", 
            RowBox[{"Chop", "[", 
             RowBox[{
              RowBox[{"gv", "[", 
               RowBox[{"[", "y", "]"}], "]"}], ",", 
              RowBox[{"10", "^", 
               RowBox[{"(", 
                RowBox[{"-", "14"}], ")"}]}]}], "]"}]}], ",", 
           RowBox[{"Chop", "[", 
            RowBox[{
             RowBox[{"gv", "[", 
              RowBox[{"[", "y", "]"}], "]"}], ",", 
             RowBox[{"10", "^", 
              RowBox[{"(", 
               RowBox[{"-", "14"}], ")"}]}]}], "]"}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"y", ",", "1", ",", "3"}], "}"}]}], "]"}], "//", "Chop"}]}],
      ";", "\n", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{"{", "\n", 
        RowBox[{
         RowBox[{
          RowBox[{"a2", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{
              RowBox[{"Position", "[", 
               RowBox[{"Sid", ",", 
                RowBox[{
                 RowBox[{"cfg", "[", 
                  RowBox[{"[", "x", "]"}], "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{
              RowBox[{"cfg", "[", 
               RowBox[{"[", "x", "]"}], "]"}], "[", 
              RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "]"}], "=", 
          RowBox[{"Chop", "[", 
           RowBox[{
            RowBox[{"a2", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{
                RowBox[{"Position", "[", 
                 RowBox[{"Sid", ",", 
                  RowBox[{
                   RowBox[{"cfg", "[", 
                    RowBox[{"[", "x", "]"}], "]"}], "[", 
                   RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
               RowBox[{
                RowBox[{"cfg", "[", 
                 RowBox[{"[", "x", "]"}], "]"}], "[", 
                RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "]"}], " ", ".", " ", 
            RowBox[{"a1", "[", 
             RowBox[{"[", "x", "]"}], "]"}]}], "]"}]}], ";", "\n", 
         RowBox[{
          RowBox[{"a2", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{
              RowBox[{"Position", "[", 
               RowBox[{"Sid", ",", 
                RowBox[{
                 RowBox[{"cfg", "[", 
                  RowBox[{"[", "x", "]"}], "]"}], "[", 
                 RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{
              RowBox[{"cfg", "[", 
               RowBox[{"[", "x", "]"}], "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "]"}], "=", 
          RowBox[{"Chop", "[", 
           RowBox[{
            RowBox[{"a2", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{
                RowBox[{"Position", "[", 
                 RowBox[{"Sid", ",", 
                  RowBox[{
                   RowBox[{"cfg", "[", 
                    RowBox[{"[", "x", "]"}], "]"}], "[", 
                   RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
               RowBox[{
                RowBox[{"cfg", "[", 
                 RowBox[{"[", "x", "]"}], "]"}], "[", 
                RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "]"}], " ", ".", " ", 
            RowBox[{"a1", "[", 
             RowBox[{"[", "x", "]"}], "]"}]}], "]"}]}], ";"}], "\n", "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "1", ",", 
         RowBox[{"Length", "[", "cfg", "]"}]}], "}"}]}], "]"}], ";", "\n", 
     "a2"}]}], "\n", "]"}]}]], "Input",
 CellLabel->"In[99]:=",ExpressionUUID->"65bfdc02-34da-4a3d-8784-1ac9eaab75e2"],

Cell[BoxData[
 RowBox[{
  RowBox[{"AZ", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"ToExpression", "[", 
      RowBox[{"\"\<XX\>\"", "<>", 
       RowBox[{"ToString", "[", "x", "]"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "1", ",", "124"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellLabel->
  "In[100]:=",ExpressionUUID->"de60f192-8456-4b73-9450-8d7d27c36359"],

Cell[BoxData[
 RowBox[{
  RowBox[{"ParitySol", "[", "xx_", "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"as1", ",", "as2", ",", "ax1", ",", "AS"}], "}"}], ",", "\n", 
    RowBox[{
     RowBox[{"AS", "=", 
      RowBox[{"Join", "[", 
       RowBox[{
        RowBox[{"AZ", "[", 
         RowBox[{"[", 
          RowBox[{"1", ";;", "124"}], "]"}], "]"}], ",", 
        RowBox[{"ConstantArray", "[", 
         RowBox[{"0", ",", "124"}], "]"}]}], "]"}]}], ";", "\n", 
     RowBox[{"as1", "=", 
      RowBox[{
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"ComplexExpand", "[", 
             RowBox[{"ReIm", "[", 
              RowBox[{
               RowBox[{"Flatten", "[", 
                RowBox[{
                 RowBox[{"ActionG", "[", "AS", "]"}], "[", 
                 RowBox[{"[", 
                  RowBox[{"1", ",", 
                   RowBox[{
                    RowBox[{"Position", "[", 
                    RowBox[{"Sid", ",", 
                    RowBox[{"gindex", "[", 
                    RowBox[{"[", 
                    RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
                    RowBox[{"[", 
                    RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
                   RowBox[{"gindex", "[", 
                    RowBox[{"[", 
                    RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], 
                "]"}], "[", 
               RowBox[{"[", 
                RowBox[{"1", ";;", "3"}], "]"}], "]"}], "]"}], "]"}], "==", 
            RowBox[{"Chop", "[", 
             RowBox[{"ReIm", "[", 
              RowBox[{
               RowBox[{"Flatten", "[", 
                RowBox[{
                 RowBox[{"Inverse", "[", 
                  RowBox[{"gv", "[", 
                   RowBox[{"[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"Position", "[", 
                    RowBox[{"Sid", ",", 
                    RowBox[{"gindex", "[", 
                    RowBox[{"[", 
                    RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
                    RowBox[{"[", 
                    RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
                    RowBox[{"gindex", "[", 
                    RowBox[{"[", 
                    RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], 
                  "]"}], " ", ".", " ", 
                 RowBox[{
                  RowBox[{"Gparity", "[", "xx", "]"}], "[", 
                  RowBox[{"[", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"Position", "[", 
                    RowBox[{"Sid", ",", 
                    RowBox[{"gindex", "[", 
                    RowBox[{"[", 
                    RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
                    RowBox[{"[", 
                    RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
                    RowBox[{"gindex", "[", 
                    RowBox[{"[", 
                    RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}]}], 
                "]"}], "[", 
               RowBox[{"[", 
                RowBox[{"1", ";;", "3"}], "]"}], "]"}], "]"}], "]"}]}], ",", 
           RowBox[{"{", 
            RowBox[{"x", ",", "1", ",", 
             RowBox[{"Length", "[", "gindex", "]"}]}], "}"}]}], "]"}], ",", 
         RowBox[{"AZ", "[", 
          RowBox[{"[", 
           RowBox[{"1", ";;", "63"}], "]"}], "]"}], ",", "Reals"}], "]"}], 
       "[", 
       RowBox[{"[", "1", "]"}], "]"}]}], ";", "\n", 
     RowBox[{"as2", "=", 
      RowBox[{
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"ComplexExpand", "[", 
             RowBox[{"ReIm", "[", 
              RowBox[{
               RowBox[{"ActionG", "[", "AS", "]"}], "[", 
               RowBox[{"[", 
                RowBox[{"3", ",", 
                 RowBox[{"PSD", "[", 
                  RowBox[{"#", "[", 
                   RowBox[{"[", "1", "]"}], "]"}], "]"}], ",", 
                 RowBox[{"#", "[", 
                  RowBox[{"[", "2", "]"}], "]"}], ",", 
                 RowBox[{"#", "[", 
                  RowBox[{"[", "3", "]"}], "]"}], ",", "2"}], "]"}], "]"}], 
              "]"}], "]"}], "==", 
            RowBox[{"ReIm", "[", 
             RowBox[{
              RowBox[{"Zparity", "[", "xx", "]"}], "[", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{"PSD", "[", 
                 RowBox[{"#", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], "]"}], ",", 
                RowBox[{"#", "[", 
                 RowBox[{"[", "2", "]"}], "]"}], ",", 
                RowBox[{"#", "[", 
                 RowBox[{"[", "3", "]"}], "]"}], ",", "2"}], "]"}], "]"}], 
             "]"}]}], "&"}], "/@", "zindex"}], ",", "\n", 
         RowBox[{"AZ", "[", 
          RowBox[{"[", 
           RowBox[{"64", ";;", "123"}], "]"}], "]"}]}], "\n", "]"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}]}], ";", "\n", 
     RowBox[{"ax1", "=", 
      RowBox[{"Chop", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Join", "[", 
          RowBox[{
           RowBox[{"AZ", "[", 
            RowBox[{"[", 
             RowBox[{"1", ";;", "123"}], "]"}], "]"}], ",", 
           RowBox[{"ConstantArray", "[", 
            RowBox[{"0", ",", "125"}], "]"}]}], "]"}], "/.", "as1"}], "/.", 
        "as2"}], "]"}]}], ";", "\n", 
     RowBox[{"ax1", "//", "Chop"}]}]}], "\n", "]"}]}]], "Input",
 CellLabel->
  "In[101]:=",ExpressionUUID->"2fce6f6b-1414-4167-8f43-2008ac6e8e0e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"cs1", "=", 
  RowBox[{"ArrayReshape", "[", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"x", ",", "y", ",", "z"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", "0", ",", "1"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"y", ",", "0", ",", "1"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"z", ",", "0", ",", "1"}], "}"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"8", ",", "3"}], "}"}]}], "]"}]}]], "Input",
 CellLabel->
  "In[102]:=",ExpressionUUID->"1fb718a6-2a47-44f1-bad3-1ffc09a97897"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "0", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "1"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.8654058117996607`*^9, 3.86540644359614*^9},
 CellLabel->
  "Out[102]=",ExpressionUUID->"2af803eb-4796-4170-9d4e-bfe29aab8954"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"cs2", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"ParitySol", "[", "#", "]"}], "&"}], "/@", "cs1"}]}], 
  ";"}]], "Input",
 CellLabel->
  "In[103]:=",ExpressionUUID->"971091e0-9744-4352-b858-047d4b0a353d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Gamma]", "=", "0.8"}], ";"}]], "Code",
 CellLabel->
  "In[104]:=",ExpressionUUID->"7d57ba27-9378-4e0a-8c71-87b9f988c871"],

Cell[BoxData[
 RowBox[{"cs2", ";"}]], "Code",
 CellLabel->
  "In[105]:=",ExpressionUUID->"5c83944f-8308-4dfc-93fd-1bce2cc2416b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"MinMax", "[", "#", "]"}], "&"}], "/@", "cx"}]], "Code",
 CellLabel->
  "In[106]:=",ExpressionUUID->"a566705f-cba7-40cd-8a6b-15fb6a71d16d"],

Cell[BoxData["cx"], "Output",
 CellChangeTimes->{3.8654058194596605`*^9, 3.8654064514179335`*^9},
 CellLabel->
  "Out[106]=",ExpressionUUID->"5958ccf9-b7d6-4293-9658-d4e0f60a7413"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Norm", "[", "#", "]"}], "&"}], "/@", "cs2"}]], "Code",
 CellLabel->
  "In[107]:=",ExpressionUUID->"a9400f01-1057-4a61-90d5-f00c37eb63d2"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0", ",", "18.347734863639776`", ",", "3.463667648406121`", ",", 
   "18.741762655068293`", ",", "4.279838898767489`", ",", 
   "18.789774201732467`", ",", "5.505521604553695`", ",", 
   "19.17463587411166`"}], "}"}]], "Output",
 CellChangeTimes->{3.8654058194836645`*^9, 3.8654064514359336`*^9},
 CellLabel->
  "Out[107]=",ExpressionUUID->"b7388445-56df-4ec2-8c99-771a55b80b99"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"P3", "[", 
    RowBox[{"#", ",", "\[Gamma]"}], "]"}], "&"}], "/@", "cs2"}]], "Code",
 CellLabel->
  "In[108]:=",ExpressionUUID->"7943d244-c051-4e2b-a3c2-f609e3f83ec2"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"-", "4.678337323087418`*^-13"}], "+", 
    RowBox[{"3786.9716606337947`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "5.030870568067139`*^-13"}], "+", 
    RowBox[{"7179.707742753823`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "4.4559066129302096`*^-13"}], "+", 
    RowBox[{"3786.971658916207`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"1.7971194476595655`*^-13", "+", 
    RowBox[{"7179.707741036237`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "3.2072918154590854`*^-13"}], "+", 
    RowBox[{"3779.2689809668877`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "2.893691245663711`*^-13"}], "+", 
    RowBox[{"7172.0050630869155`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "4.5114177641614684`*^-13"}], "+", 
    RowBox[{"3779.268979249301`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"2.407742111203401`*^-13", "+", 
    RowBox[{"7172.005061369329`", " ", "\[ImaginaryI]"}]}]}], "}"}]], "Output",
 CellChangeTimes->{3.8654058195096607`*^9, 3.865406451447933*^9},
 CellLabel->
  "Out[108]=",ExpressionUUID->"4353e853-e06e-4ff6-9cf7-884564d1753f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"P3", "[", 
     RowBox[{"#", ",", "\[Gamma]"}], "]"}], "&"}], "/@", "cs2"}], "//", 
  "MatrixForm"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"ActionDef", "[", "#", "]"}], "&"}], "/@", "cs2"}], "//", 
  "MatrixForm"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"Norm", "@", 
      RowBox[{"P1", "[", 
       RowBox[{"#", ",", "\[Gamma]"}], "]"}]}], ")"}], "&"}], "/@", "cs2"}], "//",
   "MatrixForm"}]}], "Input",
 CellLabel->
  "In[109]:=",ExpressionUUID->"02df2043-0ebb-42e1-be72-c5b8db3885cf"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", 
   TagBox[GridBox[{
      {
       RowBox[{
        RowBox[{"-", "4.678337323087418`*^-13"}], "+", 
        RowBox[{"3786.9716606337947`", " ", "\[ImaginaryI]"}]}]},
      {
       RowBox[{
        RowBox[{"-", "5.030870568067139`*^-13"}], "+", 
        RowBox[{"7179.707742753823`", " ", "\[ImaginaryI]"}]}]},
      {
       RowBox[{
        RowBox[{"-", "4.4559066129302096`*^-13"}], "+", 
        RowBox[{"3786.971658916207`", " ", "\[ImaginaryI]"}]}]},
      {
       RowBox[{"1.7971194476595655`*^-13", "+", 
        RowBox[{"7179.707741036237`", " ", "\[ImaginaryI]"}]}]},
      {
       RowBox[{
        RowBox[{"-", "3.2072918154590854`*^-13"}], "+", 
        RowBox[{"3779.2689809668877`", " ", "\[ImaginaryI]"}]}]},
      {
       RowBox[{
        RowBox[{"-", "2.893691245663711`*^-13"}], "+", 
        RowBox[{"7172.0050630869155`", " ", "\[ImaginaryI]"}]}]},
      {
       RowBox[{
        RowBox[{"-", "4.5114177641614684`*^-13"}], "+", 
        RowBox[{"3779.268979249301`", " ", "\[ImaginaryI]"}]}]},
      {
       RowBox[{"2.407742111203401`*^-13", "+", 
        RowBox[{"7172.005061369329`", " ", "\[ImaginaryI]"}]}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}],
    Column], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.8654058195356627`*^9, 3.865406451463934*^9},
 CellLabel->
  "Out[109]//MatrixForm=",ExpressionUUID->"52be7d62-1023-423a-9e19-\
cb69393b53fd"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", 
   TagBox[GridBox[{
      {
       RowBox[{"-", "0.9399478359426781`"}]},
      {"1.6592140321794515`"},
      {
       RowBox[{"-", "0.9364968385898998`"}]},
      {"1.6626650295322305`"},
      {
       RowBox[{"-", "1.6626650295305918`"}]},
      {"0.9364968385915379`"},
      {
       RowBox[{"-", "1.6592140321778148`"}]},
      {"0.9399478359443154`"}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}],
    Column], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.8654058195356627`*^9, 3.8654064515919333`*^9},
 CellLabel->
  "Out[110]//MatrixForm=",ExpressionUUID->"d929c79f-efee-4174-9983-\
c309408f5fd9"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", 
   TagBox[GridBox[{
      {"37.59791343770708`"},
      {"66.36856128717811`"},
      {"37.45987354359595`"},
      {"66.50660118128927`"},
      {"66.50660118122363`"},
      {"37.45987354366157`"},
      {"66.36856128711256`"},
      {"37.59791343777265`"}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}],
    Column], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.8654058195356627`*^9, 3.865406451599933*^9},
 CellLabel->
  "Out[111]//MatrixForm=",ExpressionUUID->"0df69b8f-3a1e-4e5a-a6c8-\
9c2ee7be4e12"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"FindCrit", "[", 
    RowBox[{"ccs_", ",", "ga_"}], "]"}], ":=", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"TEMP", "=", "ccs"}], ",", 
       RowBox[{"iis", "=", "ccs"}], ",", "kk", ",", "kks", ",", "ks", ",", 
       "d1", ",", "d2", ",", "C1", ",", "C1s", ",", "cc1", ",", "a"}], "}"}], 
     ",", "\n", 
     RowBox[{
      RowBox[{"kk", "=", "0"}], ";", "\n", 
      RowBox[{"While", "[", 
       RowBox[{
        RowBox[{"kk", "<", "300"}], ",", 
        RowBox[{"{", "\n", 
         RowBox[{
          RowBox[{"d1", "=", 
           RowBox[{"P4", "[", 
            RowBox[{"TEMP", ",", "ga"}], "]"}]}], ";", "\n", 
          RowBox[{"d2", "=", 
           RowBox[{"P2", "[", 
            RowBox[{"TEMP", ",", "ga"}], "]"}]}], ";", "\n", 
          RowBox[{"kks", "=", 
           RowBox[{"Min", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"Abs", "[", "#", "]"}], "&"}], "/@", 
             RowBox[{"Eigenvalues", "[", "d2", "]"}]}], "]"}]}], ";", "\n", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"kks", "<", 
             RowBox[{"10", "^", 
              RowBox[{"(", 
               RowBox[{"-", "6"}], ")"}]}]}], ",", 
            RowBox[{"Break", "[", "]"}]}], "]"}], ";", "\n", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"kks", ">", 
             RowBox[{"10", "^", 
              RowBox[{"(", 
               RowBox[{"-", "5"}], ")"}]}]}], ",", 
            RowBox[{"ks", "=", "0"}], ",", 
            RowBox[{"ks", "=", "1"}]}], "]"}], ";", "\n", 
          RowBox[{"C1", "=", 
           RowBox[{
            RowBox[{"Inverse", "[", "d2", "]"}], " ", ".", " ", "d1"}]}], ";",
           "\n", 
          RowBox[{"C1s", "=", 
           RowBox[{"Join", "[", 
            RowBox[{
             RowBox[{"Re", "[", "C1", "]"}], ",", 
             RowBox[{"Im", "[", "C1", "]"}]}], "]"}]}], ";", "\n", 
          RowBox[{"cc1", "=", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"Norm", "@", 
              RowBox[{"P4", "[", 
               RowBox[{"TEMP", ",", "ga"}], "]"}]}], ")"}], "-", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"Norm", "@", 
                RowBox[{"P4", "[", 
                 RowBox[{
                  RowBox[{"TEMP", "-", 
                   RowBox[{"C1s", "*", "#"}]}], ",", "ga"}], "]"}]}], "&"}], "/@", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"10", "^", 
                  RowBox[{"(", 
                   RowBox[{"-", "#"}], ")"}]}], "&"}], "/@", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"Range", "[", "6", "]"}], "-", "1"}], ")"}]}], 
               ")"}]}], ")"}]}]}], ";", "\n", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"Max", "[", "cc1", "]"}], "<=", 
             RowBox[{"10", "^", 
              RowBox[{"(", 
               RowBox[{"-", "16"}], ")"}]}]}], ",", 
            RowBox[{"Break", "[", "]"}]}], "]"}], ";", "\n", 
          RowBox[{"a", "=", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"10", "^", 
                RowBox[{"(", 
                 RowBox[{"-", "#"}], ")"}]}], "&"}], "/@", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"Range", "[", "6", "]"}], "-", "1"}], ")"}]}], ")"}], 
            "[", 
            RowBox[{"[", 
             RowBox[{
              RowBox[{"Position", "[", 
               RowBox[{"cc1", ",", 
                RowBox[{"Max", "[", "cc1", "]"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ";", 
          "\n", 
          RowBox[{"TEMP", "=", 
           RowBox[{"TEMP", "-", 
            RowBox[{"C1s", "*", "a"}]}]}], ";", "\n", 
          RowBox[{"kk", "++"}]}], "\n", "}"}]}], "]"}], ";", "\n", "TEMP"}]}],
     "\n", "]"}]}], "\n", "\n"}]], "Code",
 CellLabel->
  "In[112]:=",ExpressionUUID->"ef6f21d5-a658-42f2-9b1d-37c2858cf2c1"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"FindCrits", "[", 
    RowBox[{"ccs_", ",", "ga_", ",", "nn_"}], "]"}], ":=", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"is", ",", 
       RowBox[{"TEMP", "=", "ccs"}], ",", 
       RowBox[{"iis", "=", "ccs"}], ",", "kk", ",", "kks", ",", "ks", ",", 
       "d1", ",", "d2", ",", "C1", ",", "C1s", ",", "cc1", ",", "a"}], "}"}], 
     ",", "\n", 
     RowBox[{
      RowBox[{"kk", "=", "0"}], ";", "\n", 
      RowBox[{"is", "=", "1"}], ";", "\n", 
      RowBox[{"While", "[", 
       RowBox[{
        RowBox[{"kk", "<", "nn"}], ",", 
        RowBox[{"{", "\n", 
         RowBox[{
          RowBox[{"d1", "=", 
           RowBox[{"P4", "[", 
            RowBox[{"TEMP", ",", "ga"}], "]"}]}], ";", "\n", 
          RowBox[{"d2", "=", 
           RowBox[{"P2", "[", 
            RowBox[{"TEMP", ",", "ga"}], "]"}]}], ";", "\n", 
          RowBox[{"kks", "=", 
           RowBox[{"Min", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"Abs", "[", "#", "]"}], "&"}], "/@", 
             RowBox[{"Eigenvalues", "[", "d2", "]"}]}], "]"}]}], ";", "\n", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"kks", "<", 
             RowBox[{"10", "^", 
              RowBox[{"(", 
               RowBox[{"-", "6"}], ")"}]}]}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Break", "[", "]"}], ";"}], "}"}]}], "]"}], ";", "\n", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"kks", ">", 
             RowBox[{"10", "^", 
              RowBox[{"(", 
               RowBox[{"-", "5"}], ")"}]}]}], ",", 
            RowBox[{"ks", "=", "0"}], ",", 
            RowBox[{"ks", "=", "1"}]}], "]"}], ";", "\n", 
          RowBox[{"C1", "=", 
           RowBox[{
            RowBox[{"Inverse", "[", "d2", "]"}], " ", ".", " ", "d1"}]}], ";",
           "\n", 
          RowBox[{"C1s", "=", 
           RowBox[{"Join", "[", 
            RowBox[{
             RowBox[{"Re", "[", "C1", "]"}], ",", 
             RowBox[{"Im", "[", "C1", "]"}]}], "]"}]}], ";", "\n", 
          RowBox[{"cc1", "=", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"Norm", "@", 
              RowBox[{"P4", "[", 
               RowBox[{"TEMP", ",", "ga"}], "]"}]}], ")"}], "-", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"Norm", "@", 
                RowBox[{"P4", "[", 
                 RowBox[{
                  RowBox[{"TEMP", "-", 
                   RowBox[{"C1s", "*", "#"}]}], ",", "ga"}], "]"}]}], "&"}], "/@", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"10", "^", 
                  RowBox[{"(", 
                   RowBox[{"-", "#"}], ")"}]}], "&"}], "/@", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"Range", "[", "6", "]"}], "-", "1"}], ")"}]}], 
               ")"}]}], ")"}]}]}], ";", "\n", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"Max", "[", "cc1", "]"}], "<=", 
             RowBox[{"10", "^", 
              RowBox[{"(", 
               RowBox[{"-", "16"}], ")"}]}]}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Break", "[", "]"}], ";"}], "}"}]}], "]"}], ";", "\n", 
          RowBox[{"a", "=", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"10", "^", 
                RowBox[{"(", 
                 RowBox[{"-", "#"}], ")"}]}], "&"}], "/@", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"Range", "[", "6", "]"}], "-", "1"}], ")"}]}], ")"}], 
            "[", 
            RowBox[{"[", 
             RowBox[{
              RowBox[{"Position", "[", 
               RowBox[{"cc1", ",", 
                RowBox[{"Max", "[", "cc1", "]"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ";", 
          "\n", 
          RowBox[{"TEMP", "=", 
           RowBox[{"TEMP", "-", 
            RowBox[{"C1s", "*", "a"}]}]}], ";", "\n", "\n", 
          RowBox[{"kk", "++"}]}], "\n", "}"}]}], "]"}], ";", "\n", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Norm", "[", 
          RowBox[{"P4", "[", 
           RowBox[{"TEMP", ",", "ga"}], "]"}], "]"}], "<", 
         RowBox[{"10", "^", 
          RowBox[{"(", 
           RowBox[{"-", "11"}], ")"}]}]}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"is", "=", "0"}], ";"}], "}"}]}], "]"}], ";", "\n", 
      RowBox[{"{", 
       RowBox[{"TEMP", ",", "is"}], "}"}]}]}], "\n", "]"}]}], "\n"}]], "Code",
 CellLabel->
  "In[113]:=",ExpressionUUID->"179df937-666f-45c5-a5fd-9b10ee044838"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[Gamma]", "=", "0.01"}]], "Code",
 CellLabel->
  "In[114]:=",ExpressionUUID->"9d5ad791-fa90-4481-a159-03613178273b"],

Cell[BoxData["0.01`"], "Output",
 CellChangeTimes->{3.8654058197156644`*^9, 3.8654064516299334`*^9},
 CellLabel->
  "Out[114]=",ExpressionUUID->"e815c0b5-755b-4874-87c0-e92537322d1b"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"cx", "=", 
   RowBox[{"Map", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"FindCrit", "[", 
       RowBox[{"#", ",", "\[Gamma]"}], "]"}], "&"}], ",", "cs2"}], "]"}]}], 
  ";"}]], "Code",
 CellLabel->
  "In[115]:=",ExpressionUUID->"9b04d6cb-5662-4bb3-a935-5cca510f4768"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"Norm", "@", 
    RowBox[{"P4", "[", 
     RowBox[{"#", ",", "\[Gamma]"}], "]"}]}], "&"}], "/@", "cx"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"Norm", "@", 
    RowBox[{"P4", "[", 
     RowBox[{"#", ",", "\[Gamma]"}], "]"}]}], "&"}], "/@", "cs2"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"P3", "[", 
    RowBox[{"#", ",", "\[Gamma]"}], "]"}], "&"}], "/@", "cx"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"P3", "[", 
    RowBox[{"#", ",", "\[Gamma]"}], "]"}], "&"}], "/@", "cs2"}]}], "Code",
 CellLabel->
  "In[116]:=",ExpressionUUID->"ff9a90dc-7af4-43b8-af14-d3dc27f3a566"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1.2706283547103861`*^-12", ",", "3.911366912852084`*^-12", ",", 
   "1.4519606616204806`*^-12", ",", "7.561642828942721`*^-12", ",", 
   "1.2302949093038658`*^-12", ",", "7.62685836455496`*^-12", ",", 
   "1.6062670006108223`*^-12", ",", "5.431667312504256`*^-12"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.8654058228536625`*^9, 3.865406454334933*^9},
 CellLabel->
  "Out[116]=",ExpressionUUID->"e30324c7-8a62-4387-a7f7-03a10a9abe6f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.46997391797130206`", ",", "0.8296070160897386`", ",", 
   "0.46824841929490546`", ",", "0.8313325147661601`", ",", 
   "0.8313325147652435`", ",", "0.46824841929574745`", ",", 
   "0.8296070160888753`", ",", "0.4699739179721689`"}], "}"}]], "Output",
 CellChangeTimes->{3.8654058228536625`*^9, 3.865406454340934*^9},
 CellLabel->
  "Out[117]=",ExpressionUUID->"44e04fdc-602e-4d22-8960-3b1a7f9244d1"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"-", "6.53319330159996`*^-6"}], "+", 
    RowBox[{"3795.2252263633286`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "0.008305001114329968`"}], "+", 
    RowBox[{"7163.847555917476`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "0.002615185617933058`"}], "+", 
    RowBox[{"3795.225388607224`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "0.00006093371188792274`"}], "+", 
    RowBox[{"7163.848172386554`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "0.000060933711338639895`"}], "+", 
    RowBox[{"3795.128549616569`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "0.0026151856190050893`"}], "+", 
    RowBox[{"7163.7513333959005`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "0.008305001115292754`"}], "+", 
    RowBox[{"3795.1291660856486`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "0.00283653721282473`"}], "+", 
    RowBox[{"7163.751583996665`", " ", "\[ImaginaryI]"}]}]}], "}"}]], "Output",
 CellChangeTimes->{3.8654058228536625`*^9, 3.865406454345934*^9},
 CellLabel->
  "Out[118]=",ExpressionUUID->"c69f51cb-75c1-4a49-9096-89abbaf1ff2f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"-", "4.678337323087418`*^-13"}], "+", 
    RowBox[{"3795.2253209771884`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "5.030870568067139`*^-13"}], "+", 
    RowBox[{"7163.8476845432415`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "4.4559066129302096`*^-13"}], "+", 
    RowBox[{"3795.225320955719`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"1.7971194476595655`*^-13", "+", 
    RowBox[{"7163.84768452177`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "3.2072918154590854`*^-13"}], "+", 
    RowBox[{"3795.1290374813525`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "2.893691245663711`*^-13"}], "+", 
    RowBox[{"7163.751401047406`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "4.5114177641614684`*^-13"}], "+", 
    RowBox[{"3795.1290374598825`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{"2.407742111203401`*^-13", "+", 
    RowBox[{"7163.751401025935`", " ", "\[ImaginaryI]"}]}]}], "}"}]], "Output",
 CellChangeTimes->{3.8654058228536625`*^9, 3.8654064543499327`*^9},
 CellLabel->
  "Out[119]=",ExpressionUUID->"d9387573-a5cc-44f2-a639-48b56be2b538"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"DistanceMatrix", "[", 
   RowBox[{"Join", "[", "cx", "]"}], "]"}], "//", "MatrixForm"}]], "Code",
 CellLabel->
  "In[120]:=",ExpressionUUID->"79e9874d-b4ef-4169-a41d-94f1e1f08d87"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0.`", "18.351839895882335`", "3.4666334397145038`", 
      "18.74037437688446`", "4.283548750435227`", "18.79324527060498`", 
      "5.5094678330164095`", "19.169558705111882`"},
     {"18.351839895882335`", "0.`", "18.75084821317887`", 
      "7.088774963090447`", "18.772582422469185`", "4.307100705183333`", 
      "19.163004758210423`", "8.286784258773707`"},
     {"3.4666334397145038`", "18.75084821317887`", "0.`", 
      "18.35046535133774`", "5.509854010021114`", "19.18209717722818`", 
      "4.2811638577889175`", "18.79033753551324`"},
     {"18.74037437688446`", "7.088774963090447`", "18.35046535133774`", "0.`",
       "19.152475706678427`", "8.286863975000765`", "18.771666018933335`", 
      "4.306403271559548`"},
     {"4.283548750435227`", "18.772582422469185`", "5.509854010021114`", 
      "19.152475706678427`", "0.`", "18.30567620797387`", 
      "3.471312323455726`", "18.693089884761243`"},
     {"18.79324527060498`", "4.307100705183333`", "19.18209717722818`", 
      "8.286863975000765`", "18.30567620797387`", "0.`", 
      "18.706378194447264`", "7.078981808080463`"},
     {"5.5094678330164095`", "19.163004758210423`", "4.2811638577889175`", 
      "18.771666018933335`", "3.471312323455726`", "18.706378194447264`", 
      "0.`", "18.306025829908027`"},
     {"19.169558705111882`", "8.286784258773707`", "18.79033753551324`", 
      "4.306403271559548`", "18.693089884761243`", "7.078981808080463`", 
      "18.306025829908027`", "0.`"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.865405822892661*^9, 3.865406455225944*^9},
 CellLabel->
  "Out[120]//MatrixForm=",ExpressionUUID->"725987c7-846c-4c95-847d-\
82899acfe679"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"P3", "[", 
  RowBox[{
   RowBox[{"cs2", "[", 
    RowBox[{"[", "7", "]"}], "]"}], ",", "\[Gamma]"}], "]"}]], "Code",
 CellLabel->
  "In[121]:=",ExpressionUUID->"2ae215d8-eea6-4feb-9b84-58e946931b72"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "4.5114177641614684`*^-13"}], "+", 
  RowBox[{"3795.1290374598825`", " ", "\[ImaginaryI]"}]}]], "Output",
 CellChangeTimes->{3.865405822918663*^9, 3.8654064552379446`*^9},
 CellLabel->
  "Out[121]=",ExpressionUUID->"447f99b2-df1b-4941-a304-3d721c34c255"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"ff", "=", 
   RowBox[{"FindCrit", "[", 
    RowBox[{
     RowBox[{"cs2", "[", 
      RowBox[{"[", "8", "]"}], "]"}], ",", "\[Gamma]"}], "]"}]}], 
  ";"}]], "Code",
 CellLabel->
  "In[122]:=",ExpressionUUID->"3dedb6c7-44d9-42a4-a3eb-e8939da2b4fd"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"P4", "[", 
   RowBox[{"ff", ",", "\[Gamma]"}], "]"}], "//", "Norm"}]], "Code",
 CellLabel->
  "In[123]:=",ExpressionUUID->"279f90b2-d28b-4fc5-926b-27425271be4f"],

Cell[BoxData["5.431667312504256`*^-12"], "Output",
 CellChangeTimes->{3.8654058234456606`*^9, 3.8654064558439436`*^9},
 CellLabel->
  "Out[123]=",ExpressionUUID->"564d909f-2d84-41e4-9aa7-39611895f61b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"P2", "[", 
   RowBox[{"ff", ",", "\[Gamma]"}], "]"}], "//", "Det"}]], "Code",
 CellLabel->
  "In[124]:=",ExpressionUUID->"d7fb74c8-b58c-4c16-99b9-8b4624b31948"],

Cell[BoxData[
 RowBox[{"1.1969908171257801`*^281", "-", 
  RowBox[{"3.9550363123985986`*^280", " ", "\[ImaginaryI]"}]}]], "Output",
 CellChangeTimes->{3.8654058234716606`*^9, 3.8654064558609457`*^9},
 CellLabel->
  "Out[124]=",ExpressionUUID->"fb62da12-158f-4fff-ba3b-e467e6d74e28"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"RKF78", "[", 
    RowBox[{"a_", ",", "dt_"}], "]"}], ":=", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "DS1", ",", "DS2", ",", "DS3", ",", "DS4", ",", "DS5", ",", "DS6", ",", 
       "DS", ",", "DSP", ",", "RDAA", ",", "BB", ",", "HH", ",", "i"}], "}"}],
      ",", "\n", 
     RowBox[{
      RowBox[{"HH", "=", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"41", "/", "840"}], ",", "0", ",", "0", ",", "0", ",", "0", 
         ",", 
         RowBox[{"34", "/", "105"}], ",", 
         RowBox[{"9", "/", "35"}], ",", 
         RowBox[{"9", "/", "35"}], ",", 
         RowBox[{"9", "/", "280"}], ",", 
         RowBox[{"9", "/", "280"}], ",", 
         RowBox[{"41", "/", "840"}], ",", "0", ",", "0"}], "}"}]}], ";", "\n", 
      RowBox[{"BB", "=", 
       RowBox[{"{", "\n", "\t", 
        RowBox[{
         RowBox[{"{", "0", "}"}], ",", "\n", "\t", 
         RowBox[{"{", 
          RowBox[{"2", "/", "27"}], "}"}], ",", "\n", "\t", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"1", "/", "36"}], ",", 
           RowBox[{"1", "/", "12"}]}], "}"}], ",", "\n", "\t", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"1", "/", "24"}], ",", "0", ",", 
           RowBox[{"1", "/", "8"}]}], "}"}], ",", "\n", "\t", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"20", "/", "48"}], ",", "0", ",", 
           RowBox[{
            RowBox[{"-", "75"}], "/", "48"}], ",", 
           RowBox[{"75", "/", "48"}]}], "}"}], ",", "\n", "\t", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"1", "/", "20"}], ",", "0", ",", "0", ",", 
           RowBox[{"5", "/", "20"}], ",", 
           RowBox[{"4", "/", "20"}]}], "}"}], ",", "\n", "\t", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "25"}], "/", "108"}], ",", "0", ",", "0", ",", 
           RowBox[{"125", "/", "108"}], ",", 
           RowBox[{
            RowBox[{"-", "260"}], "/", "108"}], ",", 
           RowBox[{"250", "/", "108"}]}], "}"}], ",", "\n", "\t", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"31", "/", "300"}], ",", "0", ",", "0", ",", "0", ",", 
           RowBox[{"61", "/", "225"}], ",", 
           RowBox[{
            RowBox[{"-", "2"}], "/", "9"}], ",", 
           RowBox[{"13", "/", "900"}]}], "}"}], ",", "\n", "\t", 
         RowBox[{"{", 
          RowBox[{"2", ",", "0", ",", "0", ",", 
           RowBox[{
            RowBox[{"-", "53"}], "/", "6"}], ",", 
           RowBox[{"704", "/", "45"}], ",", 
           RowBox[{
            RowBox[{"-", "107"}], "/", "9"}], ",", 
           RowBox[{"67", "/", "90"}], ",", "3"}], "}"}], ",", "\n", "\t", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "91"}], "/", "108"}], ",", "0", ",", "0", ",", 
           RowBox[{"23", "/", "108"}], ",", 
           RowBox[{
            RowBox[{"-", "976"}], "/", "135"}], ",", 
           RowBox[{"311", "/", "54"}], ",", 
           RowBox[{
            RowBox[{"-", "19"}], "/", "60"}], ",", 
           RowBox[{"17", "/", "6"}], ",", 
           RowBox[{
            RowBox[{"-", "1"}], "/", "12"}]}], "}"}], ",", "\n", "\t", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"2383", "/", "4100"}], ",", "0", ",", "0", ",", 
           RowBox[{
            RowBox[{"-", "341"}], "/", "164"}], ",", 
           RowBox[{"4496", "/", "1025"}], ",", 
           RowBox[{
            RowBox[{"-", "301"}], "/", "82"}], ",", 
           RowBox[{"2133", "/", "4100"}], ",", 
           RowBox[{"45", "/", "82"}], ",", 
           RowBox[{"45", "/", "164"}], ",", 
           RowBox[{"18", "/", "41"}]}], "}"}], ",", "\n", "\t", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"3", "/", "205"}], ",", "0", ",", "0", ",", "0", ",", "0", 
           ",", 
           RowBox[{
            RowBox[{"-", "6"}], "/", "41"}], ",", 
           RowBox[{
            RowBox[{"-", "3"}], "/", "205"}], ",", 
           RowBox[{
            RowBox[{"-", "3"}], "/", "41"}], ",", 
           RowBox[{"3", "/", "41"}], ",", 
           RowBox[{"6", "/", "41"}], ",", "0"}], "}"}], ",", "\n", "\t", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "1777"}], "/", "4100"}], ",", "0", ",", "0", ",", 
           RowBox[{
            RowBox[{"-", "341"}], "/", "164"}], ",", 
           RowBox[{"4496", "/", "1025"}], ",", 
           RowBox[{
            RowBox[{"-", "289"}], "/", "82"}], ",", 
           RowBox[{"2193", "/", "4100"}], ",", 
           RowBox[{"51", "/", "82"}], ",", 
           RowBox[{"33", "/", "164"}], ",", 
           RowBox[{"12", "/", "41"}], ",", "0", ",", "1"}], "}"}]}], "\n", 
        "}"}]}], ";", "\n", 
      RowBox[{"DS", "=", 
       RowBox[{"ConstantArray", "[", 
        RowBox[{"a", ",", "13"}], "]"}]}], ";", "\n", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"i", "=", "1"}], ",", 
        RowBox[{"i", "<", "14"}], ",", 
        RowBox[{"i", "++"}], ",", 
        RowBox[{"{", "\n", 
         RowBox[{
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"i", "==", "1"}], ",", 
            RowBox[{"RDAA", "=", "a"}], ",", 
            RowBox[{"RDAA", "=", 
             RowBox[{"a", "+", 
              RowBox[{"dt", "*", 
               RowBox[{
                RowBox[{"BB", "[", 
                 RowBox[{"[", "i", "]"}], "]"}], " ", ".", " ", 
                RowBox[{"Table", "[", 
                 RowBox[{
                  RowBox[{"DS", "[", 
                   RowBox[{"[", "x", "]"}], "]"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"x", ",", "1", ",", 
                    RowBox[{"i", "-", "1"}]}], "}"}]}], "]"}]}]}]}]}]}], 
           "]"}], ";", "\n", 
          RowBox[{
           RowBox[{"DS", "[", 
            RowBox[{"[", "i", "]"}], "]"}], "=", 
           RowBox[{"P1", "[", 
            RowBox[{"RDAA", ",", "\[Gamma]"}], "]"}]}], ";"}], "\n", "}"}]}], 
       "]"}], ";", "\n", 
      RowBox[{"DS1", "=", 
       RowBox[{"dt", "*", 
        RowBox[{"(", 
         RowBox[{"HH", " ", ".", " ", "DS"}], ")"}]}]}], ";", "\n", 
      RowBox[{"DSP", "=", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "41"}], "/", "840"}], ")"}], "*", "dt", "*", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"DS", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "+", 
          RowBox[{"DS", "[", 
           RowBox[{"[", "11", "]"}], "]"}], "-", 
          RowBox[{"DS", "[", 
           RowBox[{"[", "12", "]"}], "]"}], "-", 
          RowBox[{"DS", "[", 
           RowBox[{"[", "13", "]"}], "]"}]}], ")"}]}]}], ";", "\n", 
      RowBox[{"{", 
       RowBox[{"DS1", ",", "DSP"}], "}"}]}]}], "\n", "]"}]}], "\n"}]], "Code",
 CellLabel->
  "In[125]:=",ExpressionUUID->"5f8d43df-616f-4ecd-a794-238b8233f406"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"STERKFS", "[", 
    RowBox[{"STE_", ",", "a_", ",", "dt_", ",", "e1_", ",", "e2_"}], "]"}], ":=", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"dtt", "=", "dt"}], ",", "a1", ",", "a2", ",", "a3", ",", "DD",
        ",", "dtp", ",", "dt3", ",", "STS", ",", "pp", ",", "ns"}], "}"}], 
     ",", "\n", 
     RowBox[{
      RowBox[{"STS", "=", 
       RowBox[{"STE", "+", "1"}]}], ";", 
      RowBox[{"a1", "=", 
       RowBox[{"RKF78", "[", 
        RowBox[{"a", ",", "dtt"}], "]"}]}], ";", 
      RowBox[{"ns", "=", "1"}], ";", 
      RowBox[{"While", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"Abs", "[", 
           RowBox[{
            RowBox[{"Im", "[", 
             RowBox[{"P3", "[", 
              RowBox[{"a", ",", "\[Gamma]"}], "]"}], "]"}], "-", 
            RowBox[{"Im", "[", 
             RowBox[{"P3", "[", 
              RowBox[{
               RowBox[{"a", "+", 
                RowBox[{"a1", "[", 
                 RowBox[{"[", "1", "]"}], "]"}]}], ",", "\[Gamma]"}], "]"}], 
             "]"}]}], "]"}], ">", 
          RowBox[{"10", "^", 
           RowBox[{"(", 
            RowBox[{"-", "2"}], ")"}]}]}], "&&", 
         RowBox[{"ns", "<", "3"}]}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"ns", "+=", "1"}], ";", 
          RowBox[{"dtt", "*=", "0.1"}], ";", 
          RowBox[{"a1", "=", 
           RowBox[{"RKF78", "[", 
            RowBox[{"a", ",", "dtt"}], "]"}]}], ";"}], "}"}]}], "]"}], ";", 
      "\n", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"ns", ">=", "3"}], ",", 
        RowBox[{"{", "\n", 
         RowBox[{
          RowBox[{"DD", "=", 
           RowBox[{"a1", "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], ";", "\n", 
          RowBox[{"dtp", "=", "dt"}], ";", "\n", 
          RowBox[{"dt3", "=", "dt"}], ";", "\n", 
          RowBox[{"STS", "=", "256"}], ";"}], "\n", "}"}], ",", 
        RowBox[{"{", "\n", 
         RowBox[{
          RowBox[{"a2", "=", 
           RowBox[{
            RowBox[{"Norm", "[", 
             RowBox[{
              RowBox[{"a1", "[", 
               RowBox[{"[", "2", "]"}], "]"}], "/", 
              RowBox[{"(", 
               RowBox[{"ConstantArray", "[", 
                RowBox[{"e1", ",", "248"}], "]"}], ")"}]}], "]"}], "/", 
            RowBox[{"Sqrt", "[", "248", "]"}]}]}], ";", "\n", "\t", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"a2", "<=", "1"}], "||", 
             RowBox[{"STS", ">", "10"}]}], ",", 
            RowBox[{"{", "\n", 
             RowBox[{
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Abs", "[", "a2", "]"}], "<", 
                 RowBox[{"10", "^", 
                  RowBox[{"(", 
                   RowBox[{"-", "40"}], ")"}]}]}], ",", 
                RowBox[{"{", "\n", 
                 RowBox[{
                  RowBox[{"dtp", "=", "dtt"}], ";"}], "\n", "}"}], ",", 
                RowBox[{"{", "\n", 
                 RowBox[{
                  RowBox[{"dtp", "=", 
                   RowBox[{"dtt", "*", 
                    RowBox[{"Min", "[", 
                    RowBox[{"4", ",", 
                    RowBox[{"Max", "[", 
                    RowBox[{
                    RowBox[{"1", "/", "8"}], ",", 
                    RowBox[{"0.8", "*", 
                    RowBox[{"a2", "^", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "/", "7"}], ")"}]}]}]}], "]"}]}], 
                    "]"}]}]}], ";"}], "\n", "}"}]}], "]"}], ";", "\n", 
              RowBox[{"DD", "=", 
               RowBox[{"a1", "[", 
                RowBox[{"[", "1", "]"}], "]"}]}], ";", "\n", 
              RowBox[{"dt3", "=", "dtt"}], ";", "\n", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"dtp", "<", 
                 RowBox[{"10", "^", 
                  RowBox[{"(", 
                   RowBox[{"-", "30"}], ")"}]}]}], ",", "\n", 
                RowBox[{
                 RowBox[{"DD", "=", 
                  RowBox[{"a1", "[", 
                   RowBox[{"[", "1", "]"}], "]"}]}], ";", "\n", 
                 RowBox[{"dtp", "=", "dt"}], ";", "\n", 
                 RowBox[{"dt3", "=", "dt"}], ";", "\n", 
                 RowBox[{"STS", "=", "256"}], ";"}]}], "\n", "]"}], ";"}], 
             "\n", "}"}], ",", 
            RowBox[{"{", "\n", 
             RowBox[{
              RowBox[{"dtp", "=", 
               RowBox[{"dtt", "*", "0.8", "*", 
                RowBox[{"a2", "^", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "1"}], "/", "7"}], ")"}]}]}]}], ";", "\n", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"DD", ",", "dtp", ",", "dt3", ",", "STS"}], "}"}], 
               "=", 
               RowBox[{"STERKFS", "[", 
                RowBox[{"STS", ",", "a", ",", "dtp", ",", "e1", ",", "e2"}], 
                "]"}]}]}], "\n", "}"}]}], "]"}], ";"}], "\n", "}"}]}], "]"}], 
      ";", "\n", 
      RowBox[{"{", 
       RowBox[{"DD", ",", "dtp", ",", "dt3", ",", "STS"}], "}"}]}]}], "\n", 
    "]"}]}], "\n"}]], "Code",
 CellLabel->
  "In[126]:=",ExpressionUUID->"ab634ea2-2ac2-49de-8536-92d4de0148b0"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"LefsMHt", "[", 
    RowBox[{"aax_", ",", "HESS_", ",", "TT_"}], "]"}], ":=", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", "\n", 
      RowBox[{
       RowBox[{"tes", "=", "aax"}], ",", "\n", "tess", ",", "\n", 
       RowBox[{"e1", "=", 
        RowBox[{"10", "^", 
         RowBox[{"(", 
          RowBox[{"-", "14"}], ")"}]}]}], ",", "\n", 
       RowBox[{"e2", "=", 
        RowBox[{"10", "^", 
         RowBox[{"(", 
          RowBox[{"-", "12"}], ")"}]}]}], ",", "\n", "px", ",", "\n", 
       RowBox[{"TY", "=", "0"}], ",", "\n", "DDD", ",", "\n", 
       RowBox[{"HSD", "=", "HESS"}], ",", "\n", 
       RowBox[{"dt", "=", 
        RowBox[{"TT", "/", "100"}]}], ",", "\n", 
       RowBox[{"STE", "=", "1"}], ",", "\n", "DDS", ",", "\n", "HH", ",", 
       "\n", "kps", ",", "\n", "i", ",", "TTT", ",", "dts"}], "\n", "}"}], 
     ",", "\n", 
     RowBox[{
      RowBox[{"DDD", "=", 
       RowBox[{"{", 
        RowBox[{"aax", ",", "dt", ",", "e1", ",", "e2", ",", "STE"}], "}"}]}],
       ";", "\n", 
      RowBox[{"DDS", "=", 
       RowBox[{"STERKFS", "[", 
        RowBox[{
         RowBox[{"DDD", "[", 
          RowBox[{"[", "5", "]"}], "]"}], ",", 
         RowBox[{"DDD", "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", 
         RowBox[{"DDD", "[", 
          RowBox[{"[", "2", "]"}], "]"}], ",", 
         RowBox[{"DDD", "[", 
          RowBox[{"[", "3", "]"}], "]"}], ",", 
         RowBox[{"DDD", "[", 
          RowBox[{"[", "4", "]"}], "]"}]}], "]"}]}], ";", "\n", 
      RowBox[{"While", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"TY", "<", "TT"}], "&&", 
         RowBox[{
          RowBox[{"DDS", "[", 
           RowBox[{"[", "4", "]"}], "]"}], "!=", "256"}]}], ",", "\n", 
        RowBox[{"{", "\n", 
         RowBox[{
          RowBox[{
           RowBox[{"DDD", "[", 
            RowBox[{"[", "5", "]"}], "]"}], "=", "1"}], ";", "\n", 
          RowBox[{"DDS", "=", 
           RowBox[{"STERKFS", "[", 
            RowBox[{
             RowBox[{"DDD", "[", 
              RowBox[{"[", "5", "]"}], "]"}], ",", 
             RowBox[{"DDD", "[", 
              RowBox[{"[", "1", "]"}], "]"}], ",", 
             RowBox[{"DDD", "[", 
              RowBox[{"[", "2", "]"}], "]"}], ",", 
             RowBox[{"DDD", "[", 
              RowBox[{"[", "3", "]"}], "]"}], ",", 
             RowBox[{"DDD", "[", 
              RowBox[{"[", "4", "]"}], "]"}]}], "]"}]}], ";", "\n", 
          RowBox[{"tes", "=", 
           RowBox[{"DDD", "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], ";", "\n", 
          RowBox[{
           RowBox[{"DDD", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "+=", 
           RowBox[{"DDS", "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], ";", "\n", 
          RowBox[{"dt", "=", 
           RowBox[{"DDS", "[", 
            RowBox[{"[", "3", "]"}], "]"}]}], ";", "\n", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"dt", "<", 
             RowBox[{"TT", "*", 
              RowBox[{"10", "^", 
               RowBox[{"(", 
                RowBox[{"-", "16"}], ")"}]}]}]}], ",", 
            RowBox[{
             RowBox[{"DDS", "[", 
              RowBox[{"[", "4", "]"}], "]"}], "=", "256"}]}], "]"}], ";", 
          "\n", 
          RowBox[{
           RowBox[{"DDD", "[", 
            RowBox[{"[", "2", "]"}], "]"}], "=", 
           RowBox[{"DDS", "[", 
            RowBox[{"[", "2", "]"}], "]"}]}], ";", "\n", 
          RowBox[{"HH", "=", 
           RowBox[{"P2", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"DDD", "[", 
               RowBox[{"[", "1", "]"}], "]"}], "-", 
              RowBox[{
               RowBox[{"DDS", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "/", "2"}]}], ",", 
             "\[Gamma]"}], "]"}]}], ";", "\n", 
          RowBox[{"HSD", "+=", 
           RowBox[{
            RowBox[{"-", 
             RowBox[{"(", 
              RowBox[{"Conjugate", "[", 
               RowBox[{"HH", " ", ".", " ", "HSD"}], "]"}], ")"}]}], "*", 
            "dt"}]}], ";", "\n", 
          RowBox[{"TY", "+=", "dt"}], ";"}], "\n", "}"}]}], "]"}], ";", "\n", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"DDS", "[", 
          RowBox[{"[", "4", "]"}], "]"}], "!=", "256"}], ",", 
        RowBox[{"{", "\n", 
         RowBox[{
          RowBox[{"TTT", "=", "TY"}], ";", "\n", 
          RowBox[{"dts", "=", "dt"}], ";", "\n", 
          RowBox[{"TY", "=", 
           RowBox[{"TY", "-", "dt"}]}], ";", "\n", 
          RowBox[{"dt", "=", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"TT", "-", "TY"}], ")"}], "/", "10"}]}], ";", "\n", 
          RowBox[{"For", "[", 
           RowBox[{
            RowBox[{"i", "=", "1"}], ",", 
            RowBox[{"i", "<", "11"}], ",", 
            RowBox[{"i", "++"}], ",", 
            RowBox[{"{", "\n", 
             RowBox[{
              RowBox[{"tess", "=", 
               RowBox[{
                RowBox[{"RKF78", "[", 
                 RowBox[{"tes", ",", "dt"}], "]"}], "[", 
                RowBox[{"[", "1", "]"}], "]"}]}], ";", "\n", 
              RowBox[{"tes", "+=", "tess"}], ";", "\n", 
              RowBox[{"HH", "=", 
               RowBox[{"P2", "[", 
                RowBox[{
                 RowBox[{"tes", "-", 
                  RowBox[{"tess", "/", "2"}]}], ",", "\[Gamma]"}], "]"}]}], 
              ";", "\n", 
              RowBox[{"HSD", "+=", 
               RowBox[{
                RowBox[{"-", 
                 RowBox[{"(", 
                  RowBox[{"Conjugate", "[", 
                   RowBox[{"HH", " ", ".", " ", "HSD"}], "]"}], ")"}]}], "*", 
                "dt"}]}], ";", "\n", 
              RowBox[{"TY", "+=", "dt"}], ";"}], "\n", "}"}]}], "]"}], ";", 
          "\n", 
          RowBox[{"kps", "=", "1"}], ";"}], "\n", "}"}], ",", 
        RowBox[{"{", "\n", 
         RowBox[{
          RowBox[{"HSD", "=", 
           RowBox[{"{", 
            RowBox[{"{", "1", "}"}], "}"}]}], ";", "\n", 
          RowBox[{"kps", "=", "0"}], ";"}], "\n", "}"}]}], "]"}], ";", "\n", 
      RowBox[{"{", 
       RowBox[{"kps", ",", 
        RowBox[{"Det", "[", "HSD", "]"}], ",", "aax", ",", "tes", ",", "TY", 
        ",", "dt"}], "}"}]}]}], "\n", "]"}]}], "\n", "\n"}]], "Code",
 CellLabel->
  "In[127]:=",ExpressionUUID->"643bf3e3-b42a-4b30-b9a7-9e8f9091272e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"cxx", "[", 
   RowBox[{"xx1_", ",", "NN1_"}], "]"}], ":=", 
  RowBox[{"RandomSample", "[", 
   RowBox[{
    RowBox[{"Delete", "[", 
     RowBox[{
      RowBox[{"Range", "[", 
       RowBox[{"1", ",", "NN1"}], "]"}], ",", "xx1"}], "]"}], ",", "2"}], 
   "]"}]}]], "Code",
 CellLabel->
  "In[128]:=",ExpressionUUID->"c978e274-d481-43e1-ad39-80c2d59bec81"],

Cell[BoxData[
 RowBox[{
  RowBox[{"vv", "[", 
   RowBox[{"x_", ",", "w_", ",", "XX0_", ",", "NN_"}], "]"}], ":=", 
  RowBox[{"N", "[", 
   RowBox[{"w", "*", 
    RowBox[{
     RowBox[{"Differences", "[", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"XX0", "[", 
          RowBox[{"[", "#", "]"}], "]"}], "&"}], "/@", 
        RowBox[{"cxx", "[", 
         RowBox[{"x", ",", "NN"}], "]"}]}], ")"}], "]"}], "[", 
     RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}]], "Code",
 CellLabel->
  "In[129]:=",ExpressionUUID->"e3e425e6-e342-4113-a146-cee54948f13d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"gb", "=", "2"}], ";", 
  RowBox[{"ga", "=", "0.0001"}], ";"}]], "Code",
 CellLabel->
  "In[130]:=",ExpressionUUID->"6d750c9b-b803-4a66-9741-74e7cd2d3131"],

Cell[BoxData[
 RowBox[{
  RowBox[{"GMM", "[", 
   RowBox[{"w_", ",", "pm_", ",", "pc_"}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"t1", ",", "i", ",", "j", ",", "nk", ",", "n1", ",", "n2", ",", 
      RowBox[{"t", "=", "0"}]}], "}"}], ",", "\n", 
    RowBox[{
     RowBox[{"t1", "=", 
      RowBox[{"Length", "[", "pm", "]"}]}], ";", "\n", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"i", ",", "j"}], "}"}], "=", 
      RowBox[{"RandomChoice", "[", 
       RowBox[{
        RowBox[{"Range", "[", 
         RowBox[{"1", ",", "t1"}], "]"}], ",", "2"}], "]"}]}], ";", "\n", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"i", "==", "j"}], ",", 
       RowBox[{"{", "\n", 
        RowBox[{
         RowBox[{"nk", "=", 
          RowBox[{"2", "*", "w", "*", 
           RowBox[{"RandomVariate", "[", 
            RowBox[{"MultinormalDistribution", "[", 
             RowBox[{"pc", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}]}]}], ";", "\n", 
         RowBox[{"t", "=", "0"}], ";"}], "\n", "}"}], ",", 
       RowBox[{"{", "\n", 
        RowBox[{
         RowBox[{"n1", "=", 
          RowBox[{"RandomVariate", "[", 
           RowBox[{"MultinormalDistribution", "[", 
            RowBox[{
             RowBox[{"pm", "[", 
              RowBox[{"[", "i", "]"}], "]"}], ",", 
             RowBox[{"ga", "*", 
              RowBox[{"pc", "[", 
               RowBox[{"[", "i", "]"}], "]"}]}]}], "]"}], "]"}]}], ";", "\n", 
         RowBox[{"n2", "=", 
          RowBox[{"RandomVariate", "[", 
           RowBox[{"MultinormalDistribution", "[", 
            RowBox[{
             RowBox[{"pm", "[", 
              RowBox[{"[", "j", "]"}], "]"}], ",", 
             RowBox[{"ga", "*", 
              RowBox[{"pc", "[", 
               RowBox[{"[", "j", "]"}], "]"}]}]}], "]"}], "]"}]}], ";", "\n", 
         RowBox[{"nk", "=", 
          RowBox[{"gb", "*", 
           RowBox[{"(", 
            RowBox[{"n1", "-", "n2"}], ")"}]}]}], ";", "\n", 
         RowBox[{"t", "=", "1"}], ";"}], "\n", "}"}]}], "]"}], ";", "\n", 
     RowBox[{"{", 
      RowBox[{"nk", ",", "t"}], "}"}]}]}], "\n", "]"}]}]], "Code",
 CellLabel->
  "In[131]:=",ExpressionUUID->"40077764-a9d2-4bbb-a5dd-51a11d5a003b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"HESS", "=", 
   RowBox[{"DiagonalMatrix", "[", 
    RowBox[{"ConstantArray", "[", 
     RowBox[{"1", ",", "124"}], "]"}], "]"}]}], ";"}]], "Code",
 CellLabel->
  "In[132]:=",ExpressionUUID->"6aae33d7-765d-4e07-82b1-c71598534925"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Slice1", "[", 
   RowBox[{"x0_", ",", "t0_", ",", "nx_", ",", 
    RowBox[{"ns_", ":", "100"}]}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"TEMP1", ",", "GT", ",", "Y", ",", "G", ",", "L", ",", "R", ",", 
      RowBox[{"kk", "=", "1"}], ",", 
      RowBox[{"ks", "=", "1"}], ",", 
      RowBox[{"N1", "=", "1"}], ",", 
      RowBox[{"N2", "=", "1"}], ",", 
      RowBox[{"N3", "=", "1"}], ",", "xx1", ",", "y1", ",", "r1", ",", "r2", 
      ",", 
      RowBox[{"nn", "=", "nx"}], ",", 
      RowBox[{"np", "=", "ns"}], ",", 
      RowBox[{"xp", "=", "1"}], ",", "tt1", ",", "lt", ",", "ut", ",", "ts"}],
      "}"}], ",", "\n", 
    RowBox[{
     RowBox[{"Y", "=", 
      RowBox[{
       RowBox[{"RandomReal", "[", 
        RowBox[{"{", 
         RowBox[{"0", ",", "1"}], "}"}], "]"}], "*", 
       RowBox[{"(", 
        RowBox[{"Exp", "@", 
         RowBox[{"(", 
          RowBox[{"LT", "*", 
           RowBox[{"EFS", "@", 
            RowBox[{"LefsMHt", "[", 
             RowBox[{"x0", ",", "HESS", ",", "t0"}], "]"}]}]}], ")"}]}], 
        ")"}]}]}], ";", "\n", 
     RowBox[{"G", "=", 
      RowBox[{"RandomReal", "[", 
       RowBox[{"{", 
        RowBox[{"0", ",", "1"}], "}"}], "]"}]}], ";", "\n", 
     RowBox[{"L", "=", 
      RowBox[{"-", "G"}]}], ";", 
     RowBox[{"R", "=", 
      RowBox[{"L", "+", "1"}]}], ";", "\n", "\n", 
     RowBox[{"ts", "=", 
      RowBox[{"{", 
       RowBox[{"TT3", ",", "TT2"}], "}"}]}], ";", "\n", "\n", 
     RowBox[{"While", "[", 
      RowBox[{
       RowBox[{"N1", "<", 
        RowBox[{"ns", "/", "2"}]}], ",", 
       RowBox[{"{", "\n", 
        RowBox[{
         RowBox[{"TEMP1", "=", 
          RowBox[{"LefsMHt", "[", 
           RowBox[{
            RowBox[{"x0", "+", 
             RowBox[{"L", "*", "nn"}]}], ",", "HESS", ",", "t0"}], "]"}]}], 
         ";", "\n", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"TEMP1", "[", 
              RowBox[{"[", "1", "]"}], "]"}], "==", "0"}], "||", 
            RowBox[{"Y", ">", 
             RowBox[{"Exp", "@", 
              RowBox[{"(", 
               RowBox[{"LT", "*", 
                RowBox[{"EFS", "@", "TEMP1"}]}], ")"}]}]}], "||", 
            RowBox[{
             RowBox[{"Norm", "[", 
              RowBox[{"x0", "+", 
               RowBox[{"L", "*", "nn"}]}], "]"}], ">", "20"}]}], ",", 
           RowBox[{
            RowBox[{"Break", "[", "]"}], ";"}], ",", 
           RowBox[{
            RowBox[{"L", "-=", "1"}], ";", 
            RowBox[{"N1", "++"}], ";"}]}], "]"}], ";", "\n", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"N1", ">", "100"}], ",", 
           RowBox[{
            RowBox[{"L", "=", 
             RowBox[{"-", "G"}]}], ";", 
            RowBox[{"Break", "[", "]"}], ";"}]}], "]"}], ";"}], "\n", "}"}]}],
       "]"}], ";", "\n", "\n", 
     RowBox[{"While", "[", 
      RowBox[{
       RowBox[{"N3", "<", 
        RowBox[{"ns", "/", "2"}]}], ",", 
       RowBox[{"{", "\n", 
        RowBox[{
         RowBox[{"TEMP1", "=", 
          RowBox[{"LefsMHt", "[", 
           RowBox[{
            RowBox[{"x0", "+", 
             RowBox[{"R", "*", "nn"}]}], ",", "HESS", ",", "t0"}], "]"}]}], 
         ";", "\n", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"TEMP1", "[", 
              RowBox[{"[", "1", "]"}], "]"}], "==", "0"}], "||", 
            RowBox[{"Y", ">", 
             RowBox[{"Exp", "@", 
              RowBox[{"(", 
               RowBox[{"LT", "*", 
                RowBox[{"EFS", "@", "TEMP1"}]}], ")"}]}]}], "||", 
            RowBox[{
             RowBox[{"Norm", "[", 
              RowBox[{"x0", "+", 
               RowBox[{"R", "*", "nn"}]}], "]"}], ">", "20"}]}], ",", 
           RowBox[{
            RowBox[{"Break", "[", "]"}], ";"}], ",", 
           RowBox[{
            RowBox[{"R", "+=", "1"}], ";", 
            RowBox[{"N3", "++"}], ";"}]}], "]"}], ";", "\n", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"N3", ">", "100"}], ",", 
           RowBox[{
            RowBox[{"Break", "[", "]"}], ";"}]}], "]"}]}], "\n", "}"}]}], 
      "]"}], ";", "\n", "\n", 
     RowBox[{"While", "[", 
      RowBox[{
       RowBox[{"N2", "<", "np"}], ",", 
       RowBox[{"{", "\n", "\t", 
        RowBox[{
         RowBox[{"N2", "++"}], ";", "\n", "\t", 
         RowBox[{"xx1", "=", 
          RowBox[{"RandomReal", "[", 
           RowBox[{"{", 
            RowBox[{"L", ",", "R"}], "}"}], "]"}]}], ";", "\n", "\t", 
         RowBox[{"tt1", "=", 
          RowBox[{"RandomReal", "[", "ts", "]"}]}], ";", "\n", "\t", 
         RowBox[{"TEMP1", "=", 
          RowBox[{"LefsMHt", "[", 
           RowBox[{
            RowBox[{"x0", "+", 
             RowBox[{"xx1", "*", "nn"}]}], ",", "HESS", ",", "tt1"}], "]"}]}],
          ";", "\n", "\t", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"TEMP1", "[", 
             RowBox[{"[", "1", "]"}], "]"}], "==", "0"}], ",", 
           RowBox[{"{", "\n", "\t\t", 
            RowBox[{
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"TEMP1", "[", 
                 RowBox[{"[", "5", "]"}], "]"}], ">", "TT3"}], ",", 
               RowBox[{"{", "\n", "\t\t\t", 
                RowBox[{
                 RowBox[{"ts", "=", 
                  RowBox[{"{", 
                   RowBox[{"TT3", ",", 
                    RowBox[{"TEMP1", "[", 
                    RowBox[{"[", "5", "]"}], "]"}]}], "}"}]}], ";", 
                 RowBox[{"ks", "++"}], ";", 
                 RowBox[{"Continue", "[", "]"}], ";"}], "\n", "\t\t", "}"}], 
               ",", 
               RowBox[{"{", "\n", "\t\t\t", 
                RowBox[{
                 RowBox[{"ks", "++"}], ";", 
                 RowBox[{"Continue", "[", "]"}], ";"}], "\n", "\t\t", "}"}]}],
               "]"}], ";"}], "\n", "\t", "}"}]}], "]"}], ";", "\n", "\t", 
         RowBox[{"y1", "=", 
          RowBox[{"Exp", "@", 
           RowBox[{"(", 
            RowBox[{"LT", "*", 
             RowBox[{"EFS", "@", "TEMP1"}]}], ")"}]}]}], ";", "\n", "\t", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"Y", "<", "y1"}], ",", 
           RowBox[{
            RowBox[{"xp", "=", "0"}], ";", 
            RowBox[{"Break", "[", "]"}], ";"}]}], "]"}], ";", "\n", "\t", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"xx1", "<", "0"}], ",", 
           RowBox[{
            RowBox[{"L", "=", "xx1"}], ";"}], ",", 
           RowBox[{
            RowBox[{"R", "=", "xx1"}], ";"}]}], "]"}], ";"}], "\n", "}"}]}], 
      "]"}], ";", "\n", "\n", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"xp", "==", "0"}], ",", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"r1", ",", "r2"}], "}"}], "=", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"xx1", "*", "nn"}], "+", "x0"}], ",", 
          RowBox[{"N", "[", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"N1", "+", "N3"}], ")"}], "/", 
            RowBox[{"(", 
             RowBox[{"N1", "+", "N3", "+", "N2"}], ")"}]}], "]"}]}], "}"}]}], 
       ",", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"r1", ",", "r2"}], "}"}], "=", 
        RowBox[{"{", 
         RowBox[{"x0", ",", "0.5065"}], "}"}]}]}], "]"}], ";", "\n", 
     RowBox[{"{", 
      RowBox[{
      "tt1", ",", "TEMP1", ",", "r2", ",", "N1", ",", "N2", ",", "N3", ",", 
       "ns"}], "}"}]}]}], "\n", "]"}]}]], "Code",
 CellLabel->
  "In[133]:=",ExpressionUUID->"99443484-b807-48ca-b47e-f92429c934f7"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Slice3", "[", 
   RowBox[{"x0_", ",", "nx_", ",", "LT_", ",", 
    RowBox[{"ns_", ":", "100"}], ",", 
    RowBox[{"ra_", ":", "20"}]}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"TEMP1", ",", "GT", ",", "Y", ",", "G", ",", "L", ",", "R", ",", 
      RowBox[{"kk", "=", "1"}], ",", 
      RowBox[{"ks", "=", "1"}], ",", 
      RowBox[{"N1", "=", "1"}], ",", 
      RowBox[{"N2", "=", "1"}], ",", 
      RowBox[{"N3", "=", "1"}], ",", "xx1", ",", "y1", ",", "r1", ",", "r2", 
      ",", 
      RowBox[{"nn", "=", "nx"}], ",", 
      RowBox[{"xp", "=", "1"}], ",", "tt1", ",", "lt", ",", "ut", ",", "ts"}],
      "}"}], ",", "\n", 
    RowBox[{
     RowBox[{"Y", "=", 
      RowBox[{
       RowBox[{"RandomReal", "[", 
        RowBox[{"{", 
         RowBox[{"0", ",", "1"}], "}"}], "]"}], "*", 
       RowBox[{"ESt", "[", 
        RowBox[{"x0", ",", "LT"}], "]"}]}]}], ";", "\n", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"Y", "<", 
          RowBox[{"10", "^", 
           RowBox[{"(", 
            RowBox[{"-", "12"}], ")"}]}]}], ",", 
         RowBox[{"Y", "=", 
          RowBox[{
           RowBox[{"RandomReal", "[", 
            RowBox[{"{", 
             RowBox[{"0", ",", "1"}], "}"}], "]"}], "*", 
           RowBox[{"ESt", "[", 
            RowBox[{"x0", ",", "LT"}], "]"}]}]}]}], "]"}], ";"}], "*)"}], 
     "\n", 
     RowBox[{"G", "=", 
      RowBox[{"RandomReal", "[", 
       RowBox[{"{", 
        RowBox[{"0", ",", "1"}], "}"}], "]"}]}], ";", "\n", 
     RowBox[{"L", "=", 
      RowBox[{"-", "G"}]}], ";", 
     RowBox[{"R", "=", 
      RowBox[{"L", "+", "1"}]}], ";", "\n", "\n", 
     RowBox[{"While", "[", 
      RowBox[{
       RowBox[{"N1", "<", 
        RowBox[{"ns", "/", "2"}]}], ",", 
       RowBox[{"{", "\n", 
        RowBox[{
         RowBox[{"TEMP1", "=", 
          RowBox[{"ESt", "[", 
           RowBox[{
            RowBox[{"x0", "+", 
             RowBox[{"L", "*", "nn"}]}], ",", "LT"}], "]"}]}], ";", "\n", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"Y", ">", "TEMP1"}], "||", 
            RowBox[{
             RowBox[{"Norm", "[", 
              RowBox[{"x0", "+", 
               RowBox[{"L", "*", "nn"}]}], "]"}], ">", "ra"}]}], ",", 
           RowBox[{
            RowBox[{"Break", "[", "]"}], ";"}], ",", 
           RowBox[{
            RowBox[{"L", "-=", "1"}], ";", 
            RowBox[{"N1", "++"}], ";"}]}], "]"}], ";"}], "\n", "}"}]}], "]"}],
      ";", "\n", "\n", 
     RowBox[{"While", "[", 
      RowBox[{
       RowBox[{"N3", "<", 
        RowBox[{"ns", "/", "2"}]}], ",", 
       RowBox[{"{", "\n", 
        RowBox[{
         RowBox[{"TEMP1", "=", 
          RowBox[{"ESt", "[", 
           RowBox[{
            RowBox[{"x0", "+", 
             RowBox[{"R", "*", "nn"}]}], ",", "LT"}], "]"}]}], ";", "\n", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"Y", ">", "TEMP1"}], "||", 
            RowBox[{
             RowBox[{"Norm", "[", 
              RowBox[{"x0", "+", 
               RowBox[{"R", "*", "nn"}]}], "]"}], ">", "ra"}]}], ",", 
           RowBox[{
            RowBox[{"Break", "[", "]"}], ";"}], ",", 
           RowBox[{
            RowBox[{"R", "+=", "1"}], ";", 
            RowBox[{"N3", "++"}], ";"}]}], "]"}], ";"}], "\n", "}"}]}], "]"}],
      ";", "\n", "\n", 
     RowBox[{"While", "[", 
      RowBox[{
       RowBox[{"N2", "<", "ns"}], ",", 
       RowBox[{"{", "\n", "\t", 
        RowBox[{
         RowBox[{"N2", "++"}], ";", "\n", "\t", 
         RowBox[{"xx1", "=", 
          RowBox[{"RandomReal", "[", 
           RowBox[{"{", 
            RowBox[{"L", ",", "R"}], "}"}], "]"}]}], ";", "\n", "\t", 
         RowBox[{"TEMP1", "=", 
          RowBox[{"ESt", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"xx1", "*", "nn"}], "+", "x0"}], ",", "LT"}], "]"}]}], 
         ";", "\n", "\t", 
         RowBox[{"y1", "=", "TEMP1"}], ";", "\n", "\t", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"Y", "<", "y1"}], ",", 
           RowBox[{
            RowBox[{"xp", "=", "0"}], ";", 
            RowBox[{"Break", "[", "]"}], ";"}]}], "]"}], ";", "\n", "\t", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"xx1", "<", "0"}], ",", 
           RowBox[{
            RowBox[{"L", "=", "xx1"}], ";"}], ",", 
           RowBox[{
            RowBox[{"R", "=", "xx1"}], ";"}]}], "]"}], ";"}], "\n", "}"}]}], 
      "]"}], ";", "\n", "\n", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"xp", "==", "0"}], ",", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"r1", ",", "r2"}], "}"}], "=", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"xx1", "*", "nn"}], "+", "x0"}], ",", 
          RowBox[{"N", "[", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"N1", "+", "N3"}], ")"}], "/", 
            RowBox[{"(", 
             RowBox[{"N1", "+", "N2", "+", "N3"}], ")"}]}], "]"}]}], "}"}]}], 
       ",", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"r1", ",", "r2"}], "}"}], "=", 
        RowBox[{"{", 
         RowBox[{"x0", ",", "0.5065"}], "}"}]}]}], "]"}], ";", "\n", 
     RowBox[{"{", 
      RowBox[{"r1", ",", "r2", ",", "N1", ",", "N2", ",", "N3", ",", "Y"}], 
      "}"}]}]}], "\n", "]"}]}]], "Code",
 CellLabel->
  "In[134]:=",ExpressionUUID->"7c6f80df-f085-4d2f-9d07-1901ecb2aa5b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Slice4", "[", 
   RowBox[{"x0_", ",", "nx_", ",", "LT_", ",", 
    RowBox[{"ns_", ":", "100"}], ",", 
    RowBox[{"ra_", ":", "20"}]}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"TEMP1", ",", "GT", ",", "Y", ",", "G", ",", "L", ",", "R", ",", 
      RowBox[{"kk", "=", "1"}], ",", 
      RowBox[{"ks", "=", "1"}], ",", 
      RowBox[{"N1", "=", "1"}], ",", 
      RowBox[{"N2", "=", "1"}], ",", 
      RowBox[{"N3", "=", "1"}], ",", "xx1", ",", "y1", ",", "r1", ",", "r2", 
      ",", 
      RowBox[{"nn", "=", "nx"}], ",", 
      RowBox[{"xp", "=", "1"}], ",", "tt1", ",", "lt", ",", "ut", ",", "ts"}],
      "}"}], ",", "\n", 
    RowBox[{
     RowBox[{"Y", "=", 
      RowBox[{"ESt", "[", 
       RowBox[{"x0", ",", "LT"}], "]"}]}], ";", "\n", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"Y", "<", 
          RowBox[{"10", "^", 
           RowBox[{"(", 
            RowBox[{"-", "12"}], ")"}]}]}], ",", 
         RowBox[{"Y", "=", 
          RowBox[{
           RowBox[{"RandomReal", "[", 
            RowBox[{"{", 
             RowBox[{"0", ",", "1"}], "}"}], "]"}], "*", 
           RowBox[{"ESt", "[", 
            RowBox[{"x0", ",", "LT"}], "]"}]}]}]}], "]"}], ";"}], "*)"}], 
     "\n", 
     RowBox[{"TEMP1", "=", 
      RowBox[{"NSolve", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"ComplexExpand", "[", 
          RowBox[{
           RowBox[{"Norm", "[", 
            RowBox[{"x0", "+", 
             RowBox[{"GT", "*", "nn"}]}], "]"}], "^", "2"}], "]"}], "==", 
         RowBox[{"ra", "^", "2"}]}], ",", "GT"}], "]"}]}], ";", "\n", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"L", ",", "R"}], "}"}], "=", 
      RowBox[{"Sort", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"GT", "/.", 
          RowBox[{"TEMP1", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], ",", 
         RowBox[{"GT", "/.", 
          RowBox[{"TEMP1", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}]}], "}"}], "]"}]}], ";", "\n", 
     "\n", 
     RowBox[{"While", "[", 
      RowBox[{
       RowBox[{"N2", "<", "ns"}], ",", 
       RowBox[{"{", "\n", "\t", 
        RowBox[{
         RowBox[{"N2", "++"}], ";", "\n", "\t", 
         RowBox[{"xx1", "=", 
          RowBox[{"RandomReal", "[", 
           RowBox[{"{", 
            RowBox[{"L", ",", "R"}], "}"}], "]"}]}], ";", "\n", "\t", 
         RowBox[{"TEMP1", "=", 
          RowBox[{"ESt", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"xx1", "*", "nn"}], "+", "x0"}], ",", "LT"}], "]"}]}], 
         ";", "\n", "\t", 
         RowBox[{"y1", "=", "TEMP1"}], ";", "\n", "\t", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"Y", "<", "y1"}], ",", 
           RowBox[{
            RowBox[{"xp", "=", "0"}], ";", 
            RowBox[{"Break", "[", "]"}], ";"}]}], "]"}], ";", "\n", "\t", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"xx1", "<", "0"}], ",", 
           RowBox[{
            RowBox[{"L", "=", "xx1"}], ";"}], ",", 
           RowBox[{
            RowBox[{"R", "=", "xx1"}], ";"}]}], "]"}], ";"}], "\n", "}"}]}], 
      "]"}], ";", "\n", "\n", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"xp", "==", "0"}], ",", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"r1", ",", "r2"}], "}"}], "=", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"xx1", "*", "nn"}], "+", "x0"}], ",", 
          RowBox[{"N", "[", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"N1", "+", "N3"}], ")"}], "/", 
            RowBox[{"(", 
             RowBox[{"N1", "+", "N2", "+", "N3"}], ")"}]}], "]"}]}], "}"}]}], 
       ",", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"r1", ",", "r2"}], "}"}], "=", 
        RowBox[{"{", 
         RowBox[{"x0", ",", "0.5065"}], "}"}]}]}], "]"}], ";", "\n", 
     RowBox[{"{", 
      RowBox[{"r1", ",", "r2", ",", "N1", ",", "N2", ",", "N3", ",", "Y"}], 
      "}"}]}]}], "\n", "]"}]}]], "Code",
 CellLabel->
  "In[135]:=",ExpressionUUID->"3c0638d1-2faa-4959-82c0-2b044e8d2599"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"EFS", "[", "B_", "]"}], ":=", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"Log", "[", 
      RowBox[{"Abs", "[", 
       RowBox[{"B", "[", 
        RowBox[{"[", "2", "]"}], "]"}], "]"}], "]"}], "+", 
     RowBox[{"Re", "[", 
      RowBox[{"P3", "[", 
       RowBox[{
        RowBox[{"B", "[", 
         RowBox[{"[", "4", "]"}], "]"}], ",", "\[Gamma]"}], "]"}], "]"}]}], 
    ")"}]}], ";"}]], "Code",
 CellLabel->
  "In[136]:=",ExpressionUUID->"8cccdeed-eb31-4266-99e0-94ccba45eb36"],

Cell[BoxData[
 RowBox[{
  RowBox[{"ESt", "[", 
   RowBox[{"x0_", ",", "LT_"}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"k1", ",", "k2"}], "}"}], ",", "\n", 
    RowBox[{
     RowBox[{"k1", "=", 
      RowBox[{"Abs", "[", 
       RowBox[{"Det", "[", 
        RowBox[{"P2", "[", 
         RowBox[{"x0", ",", "\[Gamma]"}], "]"}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"k1", "==", "0"}], ",", 
       RowBox[{"k2", "=", "0"}], ",", 
       RowBox[{"k2", "=", 
        RowBox[{"Exp", "[", 
         RowBox[{"ESc", "[", 
          RowBox[{"x0", ",", "LT"}], "]"}], "]"}]}]}], "]"}], ";", "\n", 
     "k2"}]}], "\n", "]"}]}]], "Code",
 CellLabel->
  "In[137]:=",ExpressionUUID->"7c94f7c8-733c-4de2-ad6c-794ded7fbf09"],

Cell[BoxData[
 RowBox[{
  RowBox[{"ESS", "[", 
   RowBox[{"x0_", ",", "LT_"}], "]"}], ":=", 
  RowBox[{"LT", "*", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{"Norm", "@", 
       RowBox[{"P1", "[", 
        RowBox[{"x0", ",", "\[Gamma]"}], "]"}]}]}], "-", 
     RowBox[{"HeavisideTheta", "[", 
      RowBox[{"-", 
       RowBox[{"(", 
        RowBox[{"Log", "[", 
         RowBox[{
          RowBox[{"Abs", "[", 
           RowBox[{"Det", "[", 
            RowBox[{"P2", "[", 
             RowBox[{"x0", ",", "\[Gamma]"}], "]"}], "]"}], "]"}], "+", 
          RowBox[{"10", "^", 
           RowBox[{"(", 
            RowBox[{"-", "200"}], ")"}]}]}], "]"}], ")"}]}], "]"}]}], 
    ")"}]}]}]], "Code",
 CellLabel->
  "In[138]:=",ExpressionUUID->"3b1208e3-11a0-435a-a6e9-4d1a950af866"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"ESc", "[", 
   RowBox[{"x0_", ",", "LT_"}], "]"}], ":=", 
  RowBox[{"LT", "*", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{"Norm", "[", 
       RowBox[{"P1", "[", 
        RowBox[{"x0", ",", "\[Gamma]"}], "]"}], "]"}]}], "+", 
     RowBox[{"Clip", "[", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"Log", "[", 
         RowBox[{"Abs", "[", 
          RowBox[{"Det", "[", 
           RowBox[{"P2", "[", 
            RowBox[{"x0", ",", "\[Gamma]"}], "]"}], "]"}], "]"}], "]"}], 
        ")"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "Infinity"}], ",", "0"}], "}"}]}], "]"}]}], 
    ")"}]}]}], "\n", 
 RowBox[{
  RowBox[{"ESp", "[", 
   RowBox[{"x0_", ",", "LT_"}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"k1", ",", "k2"}], "}"}], ",", "\n", 
    RowBox[{
     RowBox[{"k1", "=", 
      RowBox[{"Abs", "[", 
       RowBox[{"Det", "[", 
        RowBox[{"P2", "[", 
         RowBox[{"x0", ",", "\[Gamma]"}], "]"}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"k1", "==", "0"}], "||", 
        RowBox[{
         RowBox[{"Norm", "[", "x0", "]"}], ">", "30"}]}], ",", 
       RowBox[{"k2", "=", 
        RowBox[{"-", "Infinity"}]}], ",", 
       RowBox[{"k2", "=", 
        RowBox[{"ESc", "[", 
         RowBox[{"x0", ",", "LT"}], "]"}]}]}], "]"}], ";", "\n", "k2"}]}], 
   "\n", "]"}]}], "\n", 
 RowBox[{"m1", "=", "NN"}]}], "Code",
 CellLabel->
  "In[139]:=",ExpressionUUID->"8ce35242-8ec0-4865-a617-962bfea278f8"],

Cell[BoxData["NN"], "Output",
 CellChangeTimes->{3.865405823763661*^9, 3.8654064560129433`*^9},
 CellLabel->
  "Out[141]=",ExpressionUUID->"c4e44505-3b07-45f0-a292-7c38d322c8cb"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"dis", "[", "x_", "]"}], ":=", 
  RowBox[{
   RowBox[{
    RowBox[{"Norm", "[", 
     RowBox[{"(", 
      RowBox[{"x", "-", "#"}], ")"}], "]"}], "&"}], "/@", "cx"}]}]], "Code",
 CellLabel->
  "In[142]:=",ExpressionUUID->"54a48e34-a2cf-40e5-aa0e-6473d6ba6489"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Saddle Points ", "Subtitle",
 CellChangeTimes->{{3.865405405168573*^9, 
  3.865405409740613*^9}},ExpressionUUID->"f3f44218-927e-4b63-839c-\
ff2bdb3e1b2a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"CloseKernels", "[", "]"}], ";"}]], "Code",
 CellLabel->
  "In[143]:=",ExpressionUUID->"c47ff14f-f7fd-42ca-ad9d-7394b2e2eef2"],

Cell[BoxData[
 RowBox[{
  RowBox[{"LaunchKernels", "[", "16", "]"}], ";"}]], "Code",
 CellChangeTimes->{{3.8654058386786613`*^9, 3.865405845834185*^9}, {
  3.8654059236241856`*^9, 3.8654059327783604`*^9}},
 CellLabel->
  "In[144]:=",ExpressionUUID->"05134919-747d-44be-b7b6-754e1df14262"],

Cell[BoxData[{
 RowBox[{"Off", "[", 
  RowBox[{"General", "::", "munfl"}], "]"}], "\n", 
 RowBox[{"Off", "[", 
  RowBox[{"Inverse", "::", "luc"}], "]"}]}], "Code",
 CellLabel->
  "In[145]:=",ExpressionUUID->"1dfba548-2811-4095-9cd0-302ba949b80a"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"ParallelEvaluate", "[", 
   RowBox[{"Off", "[", 
    RowBox[{"General", "::", "munfl"}], "]"}], "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"ParallelEvaluate", "[", 
   RowBox[{"Off", "[", 
    RowBox[{"General", "::", "ovfl"}], "]"}], "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"ParallelEvaluate", "[", 
   RowBox[{"Off", "[", 
    RowBox[{"Inverse", "::", "luc"}], "]"}], "]"}], ";"}]}], "Code",
 CellLabel->
  "In[147]:=",ExpressionUUID->"6e944e91-f9b3-4e19-b058-e901754ff69e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Read", " ", "from", " ", "the", " ", "records"}], "*)"}], "\n", 
  RowBox[{"Get", "[", 
   RowBox[{"FileNameJoin", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directory", "[", "]"}], ",", "\"\<syresult.wdx\>\""}], "}"}], 
    "]"}], "]"}]}]], "Code",
 CellChangeTimes->{{3.8654054158646812`*^9, 3.865405430750596*^9}},
 CellLabel->
  "In[150]:=",ExpressionUUID->"08fc5446-4897-4b11-a649-1d00367831f2"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Points", "//", "Dimensions"}], "\n", 
 RowBox[{"pstss", "//", "Dimensions"}], "\n", 
 RowBox[{"AKP", "//", "Dimensions"}]}], "Code",
 CellLabel->
  "In[151]:=",ExpressionUUID->"b4c16b92-b473-4051-bee0-81102ee1ed1d"],

Cell[BoxData[
 RowBox[{"{", "8", "}"}]], "Output",
 CellChangeTimes->{3.865405946489133*^9, 3.8654064660306644`*^9},
 CellLabel->
  "Out[151]=",ExpressionUUID->"e4f796de-6fb7-49df-82ec-d04b9280d0b9"],

Cell[BoxData[
 RowBox[{"{", "8", "}"}]], "Output",
 CellChangeTimes->{3.865405946489133*^9, 3.8654064660366616`*^9},
 CellLabel->
  "Out[152]=",ExpressionUUID->"8a9241d4-3e7f-42d2-a60f-2d4a15f1a21f"],

Cell[BoxData[
 RowBox[{"{", "8", "}"}]], "Output",
 CellChangeTimes->{3.865405946489133*^9, 3.8654064660396633`*^9},
 CellLabel->
  "Out[153]=",ExpressionUUID->"bcdfe7f7-e717-49f5-929c-bdd986e3071e"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Test functions", "Subtitle",
 CellChangeTimes->{{3.8654054433785996`*^9, 
  3.865405447163825*^9}},ExpressionUUID->"9965e6fa-d4d2-4d6b-abad-\
5d73de283ddd"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Eta]", "=", 
   RowBox[{"DiagonalMatrix", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "1"}], ",", "1", ",", "1", ",", "1"}], "}"}], "]"}]}], 
  ";"}]], "Code",
 CellLabel->
  "In[154]:=",ExpressionUUID->"b5f98d52-0dc1-48fd-8fb6-8d9c3be473ca"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"Jvec", "=", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
      RowBox[{"-", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0", ",", 
           RowBox[{"-", "1"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}]}], "}"}]}], ",", 
      RowBox[{"-", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", 
           RowBox[{"-", "1"}], ",", "0", ",", "0"}], "}"}]}], "}"}]}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", 
          RowBox[{"-", "1"}], ",", "0", ",", "0"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], 
     "}"}]}], ";"}], "\n"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"Jvec1", "=", 
    RowBox[{
     RowBox[{
      RowBox[{"#", " ", ".", " ", "\[Eta]"}], " ", "&"}], " ", "/@", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0", ",", 
           RowBox[{"-", "1"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", 
           RowBox[{"-", "1"}], ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", 
           RowBox[{"-", "1"}], ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], 
      "}"}]}]}], ";"}], "\n"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"jjvec", "=", 
    RowBox[{"Join", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"1", "/", "2"}], 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"PauliMatrix", "[", "i", "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", "3"}], "}"}]}], "]"}]}], ",", 
      RowBox[{
       RowBox[{"I", "/", "2"}], 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"PauliMatrix", "[", "i", "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", "3"}], "}"}]}], "]"}]}]}], "]"}]}], 
   ";"}], "\n"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"getso13new", "[", "g_", "]"}], ":=", 
   RowBox[{"MatrixExp", "[", 
    RowBox[{"Total", "[", 
     RowBox[{
      RowBox[{"Join", "[", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"Re", "[", "#", "]"}], "&"}], " ", "/@", " ", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"Tr", "[", 
             RowBox[{
              RowBox[{"MatrixLog", "[", "g", "]"}], " ", ".", " ", 
              RowBox[{"PauliMatrix", "[", "i", "]"}]}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"i", ",", "1", ",", "3"}], "}"}]}], "]"}]}], ")"}], ",", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"Im", "[", "#", "]"}], "&"}], " ", "/@", "  ", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"Tr", "[", 
             RowBox[{
              RowBox[{"MatrixLog", "[", "g", "]"}], " ", ".", " ", 
              RowBox[{"PauliMatrix", "[", "i", "]"}]}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"i", ",", "1", ",", "3"}], "}"}]}], "]"}]}], ")"}]}], 
       "]"}], "*", "Jvec"}], "]"}], "]"}]}], "\n"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"bivechalfto1", "[", "bb_", "]"}], ":=", 
   RowBox[{"Total", "[", 
    RowBox[{
     RowBox[{"Join", "[", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"Re", "[", "#", "]"}], "&"}], " ", "/@", " ", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"Tr", "[", 
            RowBox[{"bb", " ", ".", " ", 
             RowBox[{"PauliMatrix", "[", "i", "]"}]}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", "3"}], "}"}]}], "]"}]}], ")"}], ",", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"Im", "[", "#", "]"}], "&"}], " ", "/@", "  ", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"Tr", "[", 
            RowBox[{"bb", " ", ".", " ", 
             RowBox[{"PauliMatrix", "[", "i", "]"}]}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", "3"}], "}"}]}], "]"}]}], ")"}]}], 
      "]"}], "*", "Jvec"}], "]"}]}], "\n"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"bivec1tohalf", "[", "bivec_", "]"}], ":=", 
   RowBox[{"Total", "[", " ", 
    RowBox[{
     RowBox[{"1", "/", "2"}], " ", 
     RowBox[{"Join", "[", 
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"Tr", "[", 
          RowBox[{"bivec", " ", ".", " ", 
           RowBox[{"Jvec", "[", 
            RowBox[{"[", "i", "]"}], "]"}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", "3"}], "}"}]}], "]"}], ",", 
       RowBox[{"-", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"Tr", "[", 
           RowBox[{"bivec", " ", ".", " ", 
            RowBox[{"Jvec", "[", 
             RowBox[{"[", "i", "]"}], "]"}]}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "4", ",", "6"}], "}"}]}], "]"}]}]}], "]"}], "*", 
     "jjvec"}], "]"}]}], "\n"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"getsl2c1", "[", "aaa_", "]"}], ":=", 
   RowBox[{"MatrixExp", "[", " ", 
    RowBox[{"bivec1tohalf", "[", 
     RowBox[{"MatrixLog", "[", "aaa", "]"}], "]"}], "]"}]}], " ", 
  "\n"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"xifrombivecsu2", "[", "bivec_", "]"}], ":=", 
    RowBox[{"Block", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"aa", ",", "bb"}], "}"}], ",", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"aa", ",", "bb"}], "}"}], "/.", 
       RowBox[{"FindInstance", "[", 
        RowBox[{
         RowBox[{"Append", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"Thread", "[", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"{", "aa", "}"}], ",", 
                    RowBox[{"{", "bb", "}"}]}], "}"}], " ", ".", " ", 
                  RowBox[{"{", 
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Conjugate", "[", "aa", "]"}], ",", 
                    RowBox[{"Conjugate", "[", "bb", "]"}]}], "}"}], "}"}]}], 
                 "-", 
                 RowBox[{
                  RowBox[{"1", "/", "2"}], " ", 
                  RowBox[{"IdentityMatrix", "[", "2", "]"}]}], "-", "bivec"}],
                 "//", "Flatten"}], ")"}], "==", "0"}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"1", ";;", "2"}], "]"}], "]"}], ",", 
           RowBox[{"aa", ">", "0"}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"aa", ",", "bb"}], "}"}], ",", "Complexes"}], "]"}]}]}], 
     "]"}]}], ";"}], "\n"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"xifrombivecsu11", "[", "bivec_", "]"}], ":=", 
    RowBox[{"Block", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"aa", ",", "bb", ",", 
        RowBox[{"mm", "=", 
         RowBox[{"Sign", "[", 
          RowBox[{
           RowBox[{"bivec", "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "1"}], "]"}], "]"}], "//", "N"}], "]"}]}]}], 
       "}"}], ",", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"aa", ",", "bb"}], "}"}], "/.", 
       RowBox[{"FindInstance", "[", 
        RowBox[{
         RowBox[{"Append", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"Thread", "[", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"mm", " ", 
                  RowBox[{
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", "aa", "}"}], ",", 
                    RowBox[{"{", "bb", "}"}]}], "}"}], " ", ".", " ", 
                   RowBox[{"{", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Conjugate", "[", "aa", "]"}], ",", 
                    RowBox[{"Conjugate", "[", "bb", "]"}]}], "}"}], "}"}], 
                   " ", ".", " ", 
                   RowBox[{"PauliMatrix", "[", "3", "]"}]}]}], "-", 
                 RowBox[{
                  RowBox[{"1", "/", "2"}], " ", 
                  RowBox[{"IdentityMatrix", "[", "2", "]"}]}], "-", "bivec"}],
                 "//", "Flatten"}], ")"}], "==", "0"}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"1", ";;", "2"}], "]"}], "]"}], ",", " ", 
           RowBox[{"aa", ">", "0"}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"aa", ",", "bb"}], "}"}], ",", "Complexes"}], "]"}]}]}], 
     "]"}]}], ";"}], "\n"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"xifrombivecsu11", "[", "bivec_", "]"}], ":=", 
    RowBox[{"Block", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"aa", ",", "bb", ",", 
        RowBox[{"mm", "=", 
         RowBox[{"Sign", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"bivec", "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}], "+", 
            RowBox[{"1", "/", "2"}]}], " ", "//", "N"}], "]"}]}]}], "}"}], 
      ",", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"aa", ",", "bb"}], "}"}], "/.", 
       RowBox[{"FindInstance", "[", 
        RowBox[{
         RowBox[{"Append", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"Thread", "[", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"mm", " ", 
                  RowBox[{
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", "aa", "}"}], ",", 
                    RowBox[{"{", "bb", "}"}]}], "}"}], " ", ".", " ", 
                   RowBox[{"{", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Conjugate", "[", "aa", "]"}], ",", 
                    RowBox[{"Conjugate", "[", "bb", "]"}]}], "}"}], "}"}], 
                   " ", ".", " ", 
                   RowBox[{"PauliMatrix", "[", "3", "]"}]}]}], "-", 
                 RowBox[{
                  RowBox[{"1", "/", "2"}], " ", 
                  RowBox[{"IdentityMatrix", "[", "2", "]"}]}], "-", "bivec"}],
                 "//", "Flatten"}], ")"}], "==", "0"}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"1", ";;", "2"}], "]"}], "]"}], ",", " ", 
           RowBox[{"aa", ">", "0"}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"aa", ",", "bb"}], "}"}], ",", "Complexes"}], "]"}]}]}], 
     "]"}]}], ";"}], "\n"}], "\n", 
 RowBox[{
  RowBox[{"xifrombivec", "[", 
   RowBox[{"bivec_", ",", "sgndet_"}], "]"}], ":=", 
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{"sgndet", ">", "0"}], ",", 
    RowBox[{"xifrombivecsu2", "[", "bivec", "]"}], ",", 
    RowBox[{"xifrombivecsu11", "[", "bivec", "]"}]}], "]"}]}]}], "Code",
 CellLabel->
  "In[155]:=",ExpressionUUID->"a0e08f08-71ce-4910-92f2-187561122ddf"],

Cell[BoxData[
 RowBox[{
  RowBox[{"face11", "[", 
   RowBox[{"x_", ",", "y_", ",", "e_", ",", "cd_"}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"c", ",", "d", ",", "K1"}], "}"}], ",", "\n", 
    RowBox[{
     RowBox[{"K1", "=", 
      RowBox[{"ActionFC", "[", "cd", "]"}]}], ";", "\n", 
     RowBox[{"c", "=", 
      RowBox[{"Delete", "[", 
       RowBox[{
        RowBox[{"Range", "[", 
         RowBox[{"1", ",", "6"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"Sid", "[", 
            RowBox[{"[", "x", "]"}], "]"}], "}"}], ",", 
          RowBox[{"{", "y", "}"}]}], "}"}]}], "]"}]}], ";", "\n", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"{", "\n", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"e", "[", 
              RowBox[{"[", "1", "]"}], "]"}], "*", 
             RowBox[{"K1", "[", 
              RowBox[{"[", 
               RowBox[{"7", ",", "x", ",", "y", ",", 
                RowBox[{"c", "[", 
                 RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "]"}], "*", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"I", "*", "\[Gamma]"}], "+", 
                 RowBox[{"e", "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "*", 
               RowBox[{"#", "/", 
                RowBox[{"Tr", "[", "#", "]"}]}]}], ")"}]}], "&"}], "/@", 
           RowBox[{"{", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"Transpose", "[", 
               RowBox[{"{", 
                RowBox[{"K1", "[", 
                 RowBox[{"[", 
                  RowBox[{"1", ",", "x", ",", "y", ",", 
                   RowBox[{"c", "[", 
                    RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "]"}], "}"}], 
               "]"}], " ", ".", " ", 
              RowBox[{"{", 
               RowBox[{"K1", "[", 
                RowBox[{"[", 
                 RowBox[{"2", ",", "x", ",", "y", ",", 
                  RowBox[{"c", "[", 
                   RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "]"}], "}"}]}], 
             ")"}], "}"}]}], ",", "\n", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"e", "[", 
              RowBox[{"[", "2", "]"}], "]"}], "*", 
             RowBox[{"K1", "[", 
              RowBox[{"[", 
               RowBox[{"7", ",", "x", ",", "y", ",", 
                RowBox[{"c", "[", 
                 RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "]"}], "*", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"I", "*", "\[Gamma]"}], "+", 
                 RowBox[{"e", "[", 
                  RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "*", 
               RowBox[{"#", "/", 
                RowBox[{"Tr", "[", "#", "]"}]}]}], ")"}]}], "&"}], "/@", 
           RowBox[{"{", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"Transpose", "[", 
               RowBox[{"{", 
                RowBox[{"K1", "[", 
                 RowBox[{"[", 
                  RowBox[{"1", ",", "x", ",", "y", ",", 
                   RowBox[{"c", "[", 
                    RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "]"}], "}"}], 
               "]"}], " ", ".", " ", 
              RowBox[{"{", 
               RowBox[{"K1", "[", 
                RowBox[{"[", 
                 RowBox[{"2", ",", "x", ",", "y", ",", 
                  RowBox[{"c", "[", 
                   RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "]"}], "}"}]}], 
             ")"}], "}"}]}], ",", "\n", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"e", "[", 
              RowBox[{"[", "3", "]"}], "]"}], "*", 
             RowBox[{"K1", "[", 
              RowBox[{"[", 
               RowBox[{"7", ",", "x", ",", "y", ",", 
                RowBox[{"c", "[", 
                 RowBox[{"[", "3", "]"}], "]"}]}], "]"}], "]"}], "*", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"I", "*", "\[Gamma]"}], "+", 
                 RowBox[{"e", "[", 
                  RowBox[{"[", "3", "]"}], "]"}]}], ")"}], "*", 
               RowBox[{"#", "/", 
                RowBox[{"Tr", "[", "#", "]"}]}]}], ")"}]}], "&"}], "/@", 
           RowBox[{"{", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"Transpose", "[", 
               RowBox[{"{", 
                RowBox[{"K1", "[", 
                 RowBox[{"[", 
                  RowBox[{"1", ",", "x", ",", "y", ",", 
                   RowBox[{"c", "[", 
                    RowBox[{"[", "3", "]"}], "]"}]}], "]"}], "]"}], "}"}], 
               "]"}], " ", ".", " ", 
              RowBox[{"{", 
               RowBox[{"K1", "[", 
                RowBox[{"[", 
                 RowBox[{"2", ",", "x", ",", "y", ",", 
                  RowBox[{"c", "[", 
                   RowBox[{"[", "3", "]"}], "]"}]}], "]"}], "]"}], "}"}]}], 
             ")"}], "}"}]}], ",", "\n", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"e", "[", 
              RowBox[{"[", "4", "]"}], "]"}], "*", 
             RowBox[{"K1", "[", 
              RowBox[{"[", 
               RowBox[{"7", ",", "x", ",", "y", ",", 
                RowBox[{"c", "[", 
                 RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "]"}], "*", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"I", "*", "\[Gamma]"}], "+", 
                 RowBox[{"e", "[", 
                  RowBox[{"[", "4", "]"}], "]"}]}], ")"}], "*", 
               RowBox[{"#", "/", 
                RowBox[{"Tr", "[", "#", "]"}]}]}], ")"}]}], "&"}], "/@", 
           RowBox[{"{", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"Transpose", "[", 
               RowBox[{"{", 
                RowBox[{"K1", "[", 
                 RowBox[{"[", 
                  RowBox[{"1", ",", "x", ",", "y", ",", 
                   RowBox[{"c", "[", 
                    RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "]"}], "}"}], 
               "]"}], " ", ".", " ", 
              RowBox[{"{", 
               RowBox[{"K1", "[", 
                RowBox[{"[", 
                 RowBox[{"2", ",", "x", ",", "y", ",", 
                  RowBox[{"c", "[", 
                   RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "]"}], "}"}]}], 
             ")"}], "}"}]}]}], "\n", "}"}], "-", 
        RowBox[{"{", "\n", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"e", "[", 
              RowBox[{"[", "1", "]"}], "]"}], "*", 
             RowBox[{"K1", "[", 
              RowBox[{"[", 
               RowBox[{"7", ",", "x", ",", "y", ",", 
                RowBox[{"c", "[", 
                 RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "]"}], "*", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"e", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], "-", "1"}], ")"}], "*", 
               RowBox[{"#", "/", 
                RowBox[{"Tr", "[", "#", "]"}]}]}], ")"}]}], "&"}], "/@", 
           RowBox[{"{", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"Transpose", "[", 
               RowBox[{"{", 
                RowBox[{"xv", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "y", ",", 
                   RowBox[{"c", "[", 
                    RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "]"}], "}"}], 
               "]"}], " ", ".", " ", 
              RowBox[{"{", 
               RowBox[{"K1", "[", 
                RowBox[{"[", 
                 RowBox[{"2", ",", "x", ",", "y", ",", 
                  RowBox[{"c", "[", 
                   RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "]"}], "}"}]}], 
             ")"}], "}"}]}], ",", "\n", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"e", "[", 
              RowBox[{"[", "2", "]"}], "]"}], "*", 
             RowBox[{"K1", "[", 
              RowBox[{"[", 
               RowBox[{"7", ",", "x", ",", "y", ",", 
                RowBox[{"c", "[", 
                 RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "]"}], "*", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"e", "[", 
                  RowBox[{"[", "2", "]"}], "]"}], "-", "1"}], ")"}], "*", 
               RowBox[{"#", "/", 
                RowBox[{"Tr", "[", "#", "]"}]}]}], ")"}]}], "&"}], "/@", 
           RowBox[{"{", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"Transpose", "[", 
               RowBox[{"{", 
                RowBox[{"xv", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "y", ",", 
                   RowBox[{"c", "[", 
                    RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "]"}], "}"}], 
               "]"}], " ", ".", " ", 
              RowBox[{"{", 
               RowBox[{"K1", "[", 
                RowBox[{"[", 
                 RowBox[{"2", ",", "x", ",", "y", ",", 
                  RowBox[{"c", "[", 
                   RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "]"}], "}"}]}], 
             ")"}], "}"}]}], ",", "\n", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"e", "[", 
              RowBox[{"[", "3", "]"}], "]"}], "*", 
             RowBox[{"K1", "[", 
              RowBox[{"[", 
               RowBox[{"7", ",", "x", ",", "y", ",", 
                RowBox[{"c", "[", 
                 RowBox[{"[", "3", "]"}], "]"}]}], "]"}], "]"}], "*", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"e", "[", 
                  RowBox[{"[", "3", "]"}], "]"}], "-", "1"}], ")"}], "*", 
               RowBox[{"#", "/", 
                RowBox[{"Tr", "[", "#", "]"}]}]}], ")"}]}], "&"}], "/@", 
           RowBox[{"{", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"Transpose", "[", 
               RowBox[{"{", 
                RowBox[{"xv", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "y", ",", 
                   RowBox[{"c", "[", 
                    RowBox[{"[", "3", "]"}], "]"}]}], "]"}], "]"}], "}"}], 
               "]"}], " ", ".", " ", 
              RowBox[{"{", 
               RowBox[{"K1", "[", 
                RowBox[{"[", 
                 RowBox[{"2", ",", "x", ",", "y", ",", 
                  RowBox[{"c", "[", 
                   RowBox[{"[", "3", "]"}], "]"}]}], "]"}], "]"}], "}"}]}], 
             ")"}], "}"}]}], ",", "\n", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"e", "[", 
              RowBox[{"[", "4", "]"}], "]"}], "*", 
             RowBox[{"K1", "[", 
              RowBox[{"[", 
               RowBox[{"7", ",", "x", ",", "y", ",", 
                RowBox[{"c", "[", 
                 RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "]"}], "*", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"e", "[", 
                  RowBox[{"[", "4", "]"}], "]"}], "-", "1"}], ")"}], "*", 
               RowBox[{"#", "/", 
                RowBox[{"Tr", "[", "#", "]"}]}]}], ")"}]}], "&"}], "/@", 
           RowBox[{"{", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"Transpose", "[", 
               RowBox[{"{", 
                RowBox[{"xv", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "y", ",", 
                   RowBox[{"c", "[", 
                    RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "]"}], "}"}], 
               "]"}], " ", ".", " ", 
              RowBox[{"{", 
               RowBox[{"K1", "[", 
                RowBox[{"[", 
                 RowBox[{"2", ",", "x", ",", "y", ",", 
                  RowBox[{"c", "[", 
                   RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "]"}], "}"}]}], 
             ")"}], "}"}]}]}], "\n", "}"}]}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"I", "*", "\[Gamma]"}], "+", "1"}], ")"}]}]}]}], "\n", 
   "]"}]}]], "Code",
 CellLabel->
  "In[166]:=",ExpressionUUID->"2854e53b-d415-4a66-9005-d51101293a22"],

Cell[BoxData[
 RowBox[{
  RowBox[{"pface7", "[", 
   RowBox[{"x_", ",", "y_", ",", "e_"}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"c", ",", "d", ",", "f", ",", "K1"}], "}"}], ",", "\n", 
    RowBox[{
     RowBox[{"c", "=", 
      RowBox[{"Delete", "[", 
       RowBox[{
        RowBox[{"Range", "[", 
         RowBox[{"1", ",", "6"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"Sid", "[", 
            RowBox[{"[", "x", "]"}], "]"}], "}"}], ",", 
          RowBox[{"{", "y", "}"}]}], "}"}]}], "]"}]}], ";", "\n", 
     RowBox[{"K1", "=", 
      RowBox[{"Sort", "[", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"x", ",", "y", ",", 
            RowBox[{"c", "[", 
             RowBox[{"[", "d", "]"}], "]"}], ",", 
            RowBox[{"e", "[", 
             RowBox[{"[", "d", "]"}], "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"d", ",", "1", ",", "4"}], "}"}]}], "]"}], ",", 
        RowBox[{
         RowBox[{
          RowBox[{"#1", "[", 
           RowBox[{"[", "4", "]"}], "]"}], "<", 
          RowBox[{"#2", "[", 
           RowBox[{"[", "4", "]"}], "]"}]}], "&"}]}], "]"}]}], ";", "\n", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"K1", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"1", ";;", "2"}], ",", 
          RowBox[{"1", ";;", "3"}]}], "]"}], "]"}], ",", 
       RowBox[{"K1", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"3", ";;", "4"}], ",", 
          RowBox[{"1", ";;", "3"}]}], "]"}], "]"}]}], "}"}]}]}], "\n", 
   "]"}]}]], "Code",
 CellLabel->
  "In[167]:=",ExpressionUUID->"b7668642-ef8f-4555-8a06-fa2e4385c42e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"pface5", "[", 
   RowBox[{"x_", ",", "y_", ",", "e_"}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"c", ",", "d", ",", "K1"}], "}"}], ",", "\n", 
    RowBox[{
     RowBox[{"c", "=", 
      RowBox[{"Delete", "[", 
       RowBox[{
        RowBox[{"Range", "[", 
         RowBox[{"1", ",", "6"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"Sid", "[", 
            RowBox[{"[", "x", "]"}], "]"}], "}"}], ",", 
          RowBox[{"{", "y", "}"}]}], "}"}]}], "]"}]}], ";", "\n", 
     RowBox[{"K1", "=", 
      RowBox[{"Sort", "[", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"x", ",", "y", ",", 
            RowBox[{"c", "[", 
             RowBox[{"[", "d", "]"}], "]"}], ",", 
            RowBox[{"e", "[", 
             RowBox[{"[", "d", "]"}], "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"d", ",", "1", ",", "4"}], "}"}]}], "]"}], ",", 
        RowBox[{
         RowBox[{
          RowBox[{"#1", "[", 
           RowBox[{"[", "4", "]"}], "]"}], "<", 
          RowBox[{"#2", "[", 
           RowBox[{"[", "4", "]"}], "]"}]}], "&"}]}], "]"}]}], ";", "\n", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"K1", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"1", ";;", "2"}], ",", 
          RowBox[{"1", ";;", "3"}]}], "]"}], "]"}], ",", 
       RowBox[{"K1", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"3", ";;", "4"}], ",", 
          RowBox[{"1", ";;", "3"}]}], "]"}], "]"}]}], "}"}]}]}], "\n", 
   "]"}]}]], "Code",
 CellLabel->
  "In[168]:=",ExpressionUUID->"b018ab15-bc6c-46a1-b0f6-06259a0a88b8"],

Cell[BoxData[
 RowBox[{
  RowBox[{"st", "=", 
   RowBox[{"ArrayReshape", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"{", 
         RowBox[{"x", ",", "y", ",", "z", ",", "t"}], "}"}], "-", 
        RowBox[{"{", 
         RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "}"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "0", ",", "2", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"y", ",", "0", ",", "2", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"z", ",", "0", ",", "2", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"t", ",", "0", ",", "2", ",", "2"}], "}"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"16", ",", "4"}], "}"}]}], "]"}]}], ";"}]], "Code",
 CellLabel->
  "In[169]:=",ExpressionUUID->"b225b85b-b932-4da2-96e3-199e508ef394"],

Cell[BoxData[
 RowBox[{
  RowBox[{"face5", "[", 
   RowBox[{"x_", ",", "y_", ",", "e_", ",", "cd_"}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"c", ",", "d", ",", "K1"}], "}"}], ",", "\n", 
    RowBox[{
     RowBox[{"K1", "=", 
      RowBox[{"ActionFC", "[", "cd", "]"}]}], ";", "\n", 
     RowBox[{"c", "=", 
      RowBox[{"Delete", "[", 
       RowBox[{
        RowBox[{"Range", "[", 
         RowBox[{"1", ",", "6"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"Sid", "[", 
            RowBox[{"[", "x", "]"}], "]"}], "}"}], ",", 
          RowBox[{"{", "y", "}"}]}], "}"}]}], "]"}]}], ";", "\n", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"{", "\n", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"e", "[", 
              RowBox[{"[", "1", "]"}], "]"}], "*", 
             RowBox[{"K1", "[", 
              RowBox[{"[", 
               RowBox[{"7", ",", "x", ",", "y", ",", 
                RowBox[{"c", "[", 
                 RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "]"}], "*", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"I", "*", "\[Gamma]"}], "+", 
                 RowBox[{"e", "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "*", 
               RowBox[{"#", "/", 
                RowBox[{"Tr", "[", "#", "]"}]}]}], ")"}]}], "&"}], "/@", 
           RowBox[{"{", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"Transpose", "[", 
               RowBox[{"{", 
                RowBox[{"K1", "[", 
                 RowBox[{"[", 
                  RowBox[{"1", ",", "x", ",", "y", ",", 
                   RowBox[{"c", "[", 
                    RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "]"}], "}"}], 
               "]"}], " ", ".", " ", 
              RowBox[{"{", 
               RowBox[{"K1", "[", 
                RowBox[{"[", 
                 RowBox[{"2", ",", "x", ",", "y", ",", 
                  RowBox[{"c", "[", 
                   RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "]"}], "}"}]}], 
             ")"}], "}"}]}], ",", "\n", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"e", "[", 
              RowBox[{"[", "2", "]"}], "]"}], "*", 
             RowBox[{"K1", "[", 
              RowBox[{"[", 
               RowBox[{"7", ",", "x", ",", "y", ",", 
                RowBox[{"c", "[", 
                 RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "]"}], "*", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"I", "*", "\[Gamma]"}], "+", 
                 RowBox[{"e", "[", 
                  RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "*", 
               RowBox[{"#", "/", 
                RowBox[{"Tr", "[", "#", "]"}]}]}], ")"}]}], "&"}], "/@", 
           RowBox[{"{", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"Transpose", "[", 
               RowBox[{"{", 
                RowBox[{"K1", "[", 
                 RowBox[{"[", 
                  RowBox[{"1", ",", "x", ",", "y", ",", 
                   RowBox[{"c", "[", 
                    RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "]"}], "}"}], 
               "]"}], " ", ".", " ", 
              RowBox[{"{", 
               RowBox[{"K1", "[", 
                RowBox[{"[", 
                 RowBox[{"2", ",", "x", ",", "y", ",", 
                  RowBox[{"c", "[", 
                   RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "]"}], "}"}]}], 
             ")"}], "}"}]}], ",", "\n", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"e", "[", 
              RowBox[{"[", "3", "]"}], "]"}], "*", 
             RowBox[{"K1", "[", 
              RowBox[{"[", 
               RowBox[{"7", ",", "x", ",", "y", ",", 
                RowBox[{"c", "[", 
                 RowBox[{"[", "3", "]"}], "]"}]}], "]"}], "]"}], "*", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"I", "*", "\[Gamma]"}], "+", 
                 RowBox[{"e", "[", 
                  RowBox[{"[", "3", "]"}], "]"}]}], ")"}], "*", 
               RowBox[{"#", "/", 
                RowBox[{"Tr", "[", "#", "]"}]}]}], ")"}]}], "&"}], "/@", 
           RowBox[{"{", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"Transpose", "[", 
               RowBox[{"{", 
                RowBox[{"K1", "[", 
                 RowBox[{"[", 
                  RowBox[{"1", ",", "x", ",", "y", ",", 
                   RowBox[{"c", "[", 
                    RowBox[{"[", "3", "]"}], "]"}]}], "]"}], "]"}], "}"}], 
               "]"}], " ", ".", " ", 
              RowBox[{"{", 
               RowBox[{"K1", "[", 
                RowBox[{"[", 
                 RowBox[{"2", ",", "x", ",", "y", ",", 
                  RowBox[{"c", "[", 
                   RowBox[{"[", "3", "]"}], "]"}]}], "]"}], "]"}], "}"}]}], 
             ")"}], "}"}]}], ",", "\n", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"e", "[", 
              RowBox[{"[", "4", "]"}], "]"}], "*", 
             RowBox[{"K1", "[", 
              RowBox[{"[", 
               RowBox[{"7", ",", "x", ",", "y", ",", 
                RowBox[{"c", "[", 
                 RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "]"}], "*", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"I", "*", "\[Gamma]"}], "+", 
                 RowBox[{"e", "[", 
                  RowBox[{"[", "4", "]"}], "]"}]}], ")"}], "*", 
               RowBox[{"#", "/", 
                RowBox[{"Tr", "[", "#", "]"}]}]}], ")"}]}], "&"}], "/@", 
           RowBox[{"{", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"Transpose", "[", 
               RowBox[{"{", 
                RowBox[{"K1", "[", 
                 RowBox[{"[", 
                  RowBox[{"1", ",", "x", ",", "y", ",", 
                   RowBox[{"c", "[", 
                    RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "]"}], "}"}], 
               "]"}], " ", ".", " ", 
              RowBox[{"{", 
               RowBox[{"K1", "[", 
                RowBox[{"[", 
                 RowBox[{"2", ",", "x", ",", "y", ",", 
                  RowBox[{"c", "[", 
                   RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "]"}], "}"}]}], 
             ")"}], "}"}]}]}], "\n", "}"}], "-", 
        RowBox[{"{", "\n", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"e", "[", 
              RowBox[{"[", "1", "]"}], "]"}], "*", 
             RowBox[{"K1", "[", 
              RowBox[{"[", 
               RowBox[{"7", ",", "x", ",", "y", ",", 
                RowBox[{"c", "[", 
                 RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "]"}], "*", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"e", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], "+", "1"}], ")"}], "*", 
               RowBox[{"#", "/", 
                RowBox[{"Tr", "[", "#", "]"}]}]}], ")"}]}], "&"}], "/@", 
           RowBox[{"{", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"Transpose", "[", 
               RowBox[{"{", 
                RowBox[{"K1", "[", 
                 RowBox[{"[", 
                  RowBox[{"1", ",", "x", ",", "y", ",", 
                   RowBox[{"c", "[", 
                    RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "]"}], "}"}], 
               "]"}], " ", ".", " ", 
              RowBox[{"{", 
               RowBox[{"Conjugate", "[", 
                RowBox[{"xv", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "y", ",", 
                   RowBox[{"c", "[", 
                    RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "]"}], "]"}], 
               "}"}]}], ")"}], "}"}]}], ",", "\n", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"e", "[", 
              RowBox[{"[", "2", "]"}], "]"}], "*", 
             RowBox[{"K1", "[", 
              RowBox[{"[", 
               RowBox[{"7", ",", "x", ",", "y", ",", 
                RowBox[{"c", "[", 
                 RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "]"}], "*", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"e", "[", 
                  RowBox[{"[", "2", "]"}], "]"}], "+", "1"}], ")"}], "*", 
               RowBox[{"#", "/", 
                RowBox[{"Tr", "[", "#", "]"}]}]}], ")"}]}], "&"}], "/@", 
           RowBox[{"{", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"Transpose", "[", 
               RowBox[{"{", 
                RowBox[{"K1", "[", 
                 RowBox[{"[", 
                  RowBox[{"1", ",", "x", ",", "y", ",", 
                   RowBox[{"c", "[", 
                    RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "]"}], "}"}], 
               "]"}], " ", ".", " ", 
              RowBox[{"{", 
               RowBox[{"Conjugate", "[", 
                RowBox[{"xv", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "y", ",", 
                   RowBox[{"c", "[", 
                    RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "]"}], "]"}], 
               "}"}]}], ")"}], "}"}]}], ",", "\n", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"e", "[", 
              RowBox[{"[", "3", "]"}], "]"}], "*", 
             RowBox[{"K1", "[", 
              RowBox[{"[", 
               RowBox[{"7", ",", "x", ",", "y", ",", 
                RowBox[{"c", "[", 
                 RowBox[{"[", "3", "]"}], "]"}]}], "]"}], "]"}], "*", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"e", "[", 
                  RowBox[{"[", "3", "]"}], "]"}], "+", "1"}], ")"}], "*", 
               RowBox[{"#", "/", 
                RowBox[{"Tr", "[", "#", "]"}]}]}], ")"}]}], "&"}], "/@", 
           RowBox[{"{", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"Transpose", "[", 
               RowBox[{"{", 
                RowBox[{"K1", "[", 
                 RowBox[{"[", 
                  RowBox[{"1", ",", "x", ",", "y", ",", 
                   RowBox[{"c", "[", 
                    RowBox[{"[", "3", "]"}], "]"}]}], "]"}], "]"}], "}"}], 
               "]"}], " ", ".", " ", 
              RowBox[{"{", 
               RowBox[{"Conjugate", "[", 
                RowBox[{"xv", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "y", ",", 
                   RowBox[{"c", "[", 
                    RowBox[{"[", "3", "]"}], "]"}]}], "]"}], "]"}], "]"}], 
               "}"}]}], ")"}], "}"}]}], ",", "\n", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"e", "[", 
              RowBox[{"[", "4", "]"}], "]"}], "*", 
             RowBox[{"K1", "[", 
              RowBox[{"[", 
               RowBox[{"7", ",", "x", ",", "y", ",", 
                RowBox[{"c", "[", 
                 RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "]"}], "*", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"e", "[", 
                  RowBox[{"[", "4", "]"}], "]"}], "+", "1"}], ")"}], "*", 
               RowBox[{"#", "/", 
                RowBox[{"Tr", "[", "#", "]"}]}]}], ")"}]}], "&"}], "/@", 
           RowBox[{"{", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"Transpose", "[", 
               RowBox[{"{", 
                RowBox[{"K1", "[", 
                 RowBox[{"[", 
                  RowBox[{"1", ",", "x", ",", "y", ",", 
                   RowBox[{"c", "[", 
                    RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "]"}], "}"}], 
               "]"}], " ", ".", " ", 
              RowBox[{"{", 
               RowBox[{"Conjugate", "[", 
                RowBox[{"xv", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "y", ",", 
                   RowBox[{"c", "[", 
                    RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "]"}], "]"}], 
               "}"}]}], ")"}], "}"}]}]}], "\n", "}"}]}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"I", "*", "\[Gamma]"}], "-", "1"}], ")"}]}]}]}], "\n", 
   "]"}]}]], "Code",
 CellLabel->
  "In[170]:=",ExpressionUUID->"6a45a2b8-5491-4412-8194-46a2b00bcf07"],

Cell[BoxData[
 RowBox[{
  RowBox[{"face7", "[", 
   RowBox[{"x_", ",", "y_", ",", "e_", ",", "cd_"}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"c", ",", "d", ",", "f", ",", "K1"}], "}"}], ",", "\n", 
    RowBox[{
     RowBox[{"K1", "=", 
      RowBox[{"ActionFC", "[", "cd", "]"}]}], ";", "\n", 
     RowBox[{"c", "=", 
      RowBox[{"Delete", "[", 
       RowBox[{
        RowBox[{"Range", "[", 
         RowBox[{"1", ",", "6"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"Sid", "[", 
            RowBox[{"[", "x", "]"}], "]"}], "}"}], ",", 
          RowBox[{"{", "y", "}"}]}], "}"}]}], "]"}]}], ";", "\n", 
     RowBox[{"f", "=", 
      RowBox[{
       RowBox[{"Position", "[", 
        RowBox[{"Sid", ",", "y"}], "]"}], "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "1"}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"{", "\n", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"e", "[", 
              RowBox[{"[", "1", "]"}], "]"}], "*", 
             RowBox[{"K1", "[", 
              RowBox[{"[", 
               RowBox[{"7", ",", "x", ",", "y", ",", 
                RowBox[{"c", "[", 
                 RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "]"}], "*", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"I", "*", "\[Gamma]"}], "+", 
                 RowBox[{"e", "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "*", 
               RowBox[{"#", "/", 
                RowBox[{"Tr", "[", "#", "]"}]}]}], ")"}]}], "&"}], "/@", 
           RowBox[{"{", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"Transpose", "[", 
               RowBox[{"{", 
                RowBox[{"K1", "[", 
                 RowBox[{"[", 
                  RowBox[{"1", ",", "x", ",", "y", ",", 
                   RowBox[{"c", "[", 
                    RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "]"}], "}"}], 
               "]"}], " ", ".", " ", 
              RowBox[{"{", 
               RowBox[{"K1", "[", 
                RowBox[{"[", 
                 RowBox[{"2", ",", "x", ",", "y", ",", 
                  RowBox[{"c", "[", 
                   RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "]"}], "}"}]}], 
             ")"}], "}"}]}], ",", "\n", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"e", "[", 
              RowBox[{"[", "2", "]"}], "]"}], "*", 
             RowBox[{"K1", "[", 
              RowBox[{"[", 
               RowBox[{"7", ",", "x", ",", "y", ",", 
                RowBox[{"c", "[", 
                 RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "]"}], "*", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"I", "*", "\[Gamma]"}], "+", 
                 RowBox[{"e", "[", 
                  RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "*", 
               RowBox[{"#", "/", 
                RowBox[{"Tr", "[", "#", "]"}]}]}], ")"}]}], "&"}], "/@", 
           RowBox[{"{", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"Transpose", "[", 
               RowBox[{"{", 
                RowBox[{"K1", "[", 
                 RowBox[{"[", 
                  RowBox[{"1", ",", "x", ",", "y", ",", 
                   RowBox[{"c", "[", 
                    RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "]"}], "}"}], 
               "]"}], " ", ".", " ", 
              RowBox[{"{", 
               RowBox[{"K1", "[", 
                RowBox[{"[", 
                 RowBox[{"2", ",", "x", ",", "y", ",", 
                  RowBox[{"c", "[", 
                   RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "]"}], "}"}]}], 
             ")"}], "}"}]}], ",", "\n", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"e", "[", 
              RowBox[{"[", "3", "]"}], "]"}], "*", 
             RowBox[{"K1", "[", 
              RowBox[{"[", 
               RowBox[{"7", ",", "x", ",", "y", ",", 
                RowBox[{"c", "[", 
                 RowBox[{"[", "3", "]"}], "]"}]}], "]"}], "]"}], "*", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"I", "*", "\[Gamma]"}], "+", 
                 RowBox[{"e", "[", 
                  RowBox[{"[", "3", "]"}], "]"}]}], ")"}], "*", 
               RowBox[{"#", "/", 
                RowBox[{"Tr", "[", "#", "]"}]}]}], ")"}]}], "&"}], "/@", 
           RowBox[{"{", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"Transpose", "[", 
               RowBox[{"{", 
                RowBox[{"K1", "[", 
                 RowBox[{"[", 
                  RowBox[{"1", ",", "x", ",", "y", ",", 
                   RowBox[{"c", "[", 
                    RowBox[{"[", "3", "]"}], "]"}]}], "]"}], "]"}], "}"}], 
               "]"}], " ", ".", " ", 
              RowBox[{"{", 
               RowBox[{"K1", "[", 
                RowBox[{"[", 
                 RowBox[{"2", ",", "x", ",", "y", ",", 
                  RowBox[{"c", "[", 
                   RowBox[{"[", "3", "]"}], "]"}]}], "]"}], "]"}], "}"}]}], 
             ")"}], "}"}]}], ",", "\n", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"e", "[", 
              RowBox[{"[", "4", "]"}], "]"}], "*", 
             RowBox[{"K1", "[", 
              RowBox[{"[", 
               RowBox[{"7", ",", "x", ",", "y", ",", 
                RowBox[{"c", "[", 
                 RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "]"}], "*", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"I", "*", "\[Gamma]"}], "+", 
                 RowBox[{"e", "[", 
                  RowBox[{"[", "4", "]"}], "]"}]}], ")"}], "*", 
               RowBox[{"#", "/", 
                RowBox[{"Tr", "[", "#", "]"}]}]}], ")"}]}], "&"}], "/@", 
           RowBox[{"{", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"Transpose", "[", 
               RowBox[{"{", 
                RowBox[{"K1", "[", 
                 RowBox[{"[", 
                  RowBox[{"1", ",", "x", ",", "y", ",", 
                   RowBox[{"c", "[", 
                    RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "]"}], "}"}], 
               "]"}], " ", ".", " ", 
              RowBox[{"{", 
               RowBox[{"K1", "[", 
                RowBox[{"[", 
                 RowBox[{"2", ",", "x", ",", "y", ",", 
                  RowBox[{"c", "[", 
                   RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "]"}], "}"}]}], 
             ")"}], "}"}]}]}], "\n", "}"}], "-", 
        RowBox[{"{", "\n", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"e", "[", 
              RowBox[{"[", "1", "]"}], "]"}], "*", 
             RowBox[{"K1", "[", 
              RowBox[{"[", 
               RowBox[{"7", ",", "x", ",", "y", ",", 
                RowBox[{"c", "[", 
                 RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "]"}], "*", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"e", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], "+", "1"}], ")"}], "*", 
               RowBox[{"#", "/", 
                RowBox[{"Tr", "[", "#", "]"}]}]}], ")"}]}], "&"}], "/@", 
           RowBox[{"{", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"Transpose", "[", 
               RowBox[{"{", 
                RowBox[{"K1", "[", 
                 RowBox[{"[", 
                  RowBox[{"1", ",", "x", ",", "y", ",", 
                   RowBox[{"c", "[", 
                    RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "]"}], "}"}], 
               "]"}], " ", ".", " ", 
              RowBox[{"{", 
               RowBox[{"K1", "[", 
                RowBox[{"[", 
                 RowBox[{"2", ",", "f", ",", 
                  RowBox[{"Sid", "[", 
                   RowBox[{"[", "x", "]"}], "]"}], ",", 
                  RowBox[{"c", "[", 
                   RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "]"}], "}"}]}], 
             ")"}], "}"}]}], ",", "\n", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"e", "[", 
              RowBox[{"[", "2", "]"}], "]"}], "*", 
             RowBox[{"K1", "[", 
              RowBox[{"[", 
               RowBox[{"7", ",", "x", ",", "y", ",", 
                RowBox[{"c", "[", 
                 RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "]"}], "*", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"e", "[", 
                  RowBox[{"[", "2", "]"}], "]"}], "+", "1"}], ")"}], "*", 
               RowBox[{"#", "/", 
                RowBox[{"Tr", "[", "#", "]"}]}]}], ")"}]}], "&"}], "/@", 
           RowBox[{"{", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"Transpose", "[", 
               RowBox[{"{", 
                RowBox[{"K1", "[", 
                 RowBox[{"[", 
                  RowBox[{"1", ",", "x", ",", "y", ",", 
                   RowBox[{"c", "[", 
                    RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "]"}], "}"}], 
               "]"}], " ", ".", " ", 
              RowBox[{"{", 
               RowBox[{"K1", "[", 
                RowBox[{"[", 
                 RowBox[{"2", ",", "f", ",", 
                  RowBox[{"Sid", "[", 
                   RowBox[{"[", "x", "]"}], "]"}], ",", 
                  RowBox[{"c", "[", 
                   RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "]"}], "}"}]}], 
             ")"}], "}"}]}], ",", "\n", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"e", "[", 
              RowBox[{"[", "3", "]"}], "]"}], "*", 
             RowBox[{"K1", "[", 
              RowBox[{"[", 
               RowBox[{"7", ",", "x", ",", "y", ",", 
                RowBox[{"c", "[", 
                 RowBox[{"[", "3", "]"}], "]"}]}], "]"}], "]"}], "*", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"e", "[", 
                  RowBox[{"[", "3", "]"}], "]"}], "+", "1"}], ")"}], "*", 
               RowBox[{"#", "/", 
                RowBox[{"Tr", "[", "#", "]"}]}]}], ")"}]}], "&"}], "/@", 
           RowBox[{"{", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"Transpose", "[", 
               RowBox[{"{", 
                RowBox[{"K1", "[", 
                 RowBox[{"[", 
                  RowBox[{"1", ",", "x", ",", "y", ",", 
                   RowBox[{"c", "[", 
                    RowBox[{"[", "3", "]"}], "]"}]}], "]"}], "]"}], "}"}], 
               "]"}], " ", ".", " ", 
              RowBox[{"{", 
               RowBox[{"K1", "[", 
                RowBox[{"[", 
                 RowBox[{"2", ",", "f", ",", 
                  RowBox[{"Sid", "[", 
                   RowBox[{"[", "x", "]"}], "]"}], ",", 
                  RowBox[{"c", "[", 
                   RowBox[{"[", "3", "]"}], "]"}]}], "]"}], "]"}], "}"}]}], 
             ")"}], "}"}]}], ",", "\n", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"e", "[", 
              RowBox[{"[", "4", "]"}], "]"}], "*", 
             RowBox[{"K1", "[", 
              RowBox[{"[", 
               RowBox[{"7", ",", "x", ",", "y", ",", 
                RowBox[{"c", "[", 
                 RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "]"}], "*", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"e", "[", 
                  RowBox[{"[", "4", "]"}], "]"}], "+", "1"}], ")"}], "*", 
               RowBox[{"#", "/", 
                RowBox[{"Tr", "[", "#", "]"}]}]}], ")"}]}], "&"}], "/@", 
           RowBox[{"{", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"Transpose", "[", 
               RowBox[{"{", 
                RowBox[{"K1", "[", 
                 RowBox[{"[", 
                  RowBox[{"1", ",", "x", ",", "y", ",", 
                   RowBox[{"c", "[", 
                    RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "]"}], "}"}], 
               "]"}], " ", ".", " ", 
              RowBox[{"{", 
               RowBox[{"K1", "[", 
                RowBox[{"[", 
                 RowBox[{"2", ",", "f", ",", 
                  RowBox[{"Sid", "[", 
                   RowBox[{"[", "x", "]"}], "]"}], ",", 
                  RowBox[{"c", "[", 
                   RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "]"}], "}"}]}], 
             ")"}], "}"}]}]}], "\n", "}"}]}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"I", "*", "\[Gamma]"}], "-", "1"}], ")"}]}]}]}], "\n", 
   "]"}]}]], "Code",
 CellLabel->
  "In[171]:=",ExpressionUUID->"46dc37bc-66f6-48ed-b027-e070a1260d22"],

Cell[BoxData[
 RowBox[{
  RowBox[{"face8", "[", 
   RowBox[{"x_", ",", "y_", ",", "e_", ",", "cd_"}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"c", ",", "d", ",", "f", ",", "K1"}], "}"}], ",", "\n", 
    RowBox[{
     RowBox[{"K1", "=", 
      RowBox[{"ActionFC", "[", "cd", "]"}]}], ";", "\n", 
     RowBox[{"c", "=", 
      RowBox[{"Delete", "[", 
       RowBox[{
        RowBox[{"Range", "[", 
         RowBox[{"1", ",", "6"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"Sid", "[", 
            RowBox[{"[", "x", "]"}], "]"}], "}"}], ",", 
          RowBox[{"{", "y", "}"}]}], "}"}]}], "]"}]}], ";", "\n", 
     RowBox[{"f", "=", 
      RowBox[{
       RowBox[{"Position", "[", 
        RowBox[{"Sid", ",", "y"}], "]"}], "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "1"}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"{", "\n", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"e", "[", 
              RowBox[{"[", "1", "]"}], "]"}], "*", 
             RowBox[{"K1", "[", 
              RowBox[{"[", 
               RowBox[{"7", ",", "x", ",", "y", ",", 
                RowBox[{"c", "[", 
                 RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "]"}], "*", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"I", "*", "\[Gamma]"}], "+", 
                 RowBox[{"e", "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "*", 
               RowBox[{"#", "/", 
                RowBox[{"Tr", "[", "#", "]"}]}]}], ")"}]}], "&"}], "/@", 
           RowBox[{"{", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"Transpose", "[", 
               RowBox[{"{", 
                RowBox[{"K1", "[", 
                 RowBox[{"[", 
                  RowBox[{"1", ",", "x", ",", "y", ",", 
                   RowBox[{"c", "[", 
                    RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "]"}], "}"}], 
               "]"}], " ", ".", " ", 
              RowBox[{"{", 
               RowBox[{"K1", "[", 
                RowBox[{"[", 
                 RowBox[{"2", ",", "x", ",", "y", ",", 
                  RowBox[{"c", "[", 
                   RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "]"}], "}"}]}], 
             ")"}], "}"}]}], ",", "\n", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"e", "[", 
              RowBox[{"[", "2", "]"}], "]"}], "*", 
             RowBox[{"K1", "[", 
              RowBox[{"[", 
               RowBox[{"7", ",", "x", ",", "y", ",", 
                RowBox[{"c", "[", 
                 RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "]"}], "*", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"I", "*", "\[Gamma]"}], "+", 
                 RowBox[{"e", "[", 
                  RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "*", 
               RowBox[{"#", "/", 
                RowBox[{"Tr", "[", "#", "]"}]}]}], ")"}]}], "&"}], "/@", 
           RowBox[{"{", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"Transpose", "[", 
               RowBox[{"{", 
                RowBox[{"K1", "[", 
                 RowBox[{"[", 
                  RowBox[{"1", ",", "x", ",", "y", ",", 
                   RowBox[{"c", "[", 
                    RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "]"}], "}"}], 
               "]"}], " ", ".", " ", 
              RowBox[{"{", 
               RowBox[{"K1", "[", 
                RowBox[{"[", 
                 RowBox[{"2", ",", "x", ",", "y", ",", 
                  RowBox[{"c", "[", 
                   RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "]"}], "}"}]}], 
             ")"}], "}"}]}], ",", "\n", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"e", "[", 
              RowBox[{"[", "3", "]"}], "]"}], "*", 
             RowBox[{"K1", "[", 
              RowBox[{"[", 
               RowBox[{"7", ",", "x", ",", "y", ",", 
                RowBox[{"c", "[", 
                 RowBox[{"[", "3", "]"}], "]"}]}], "]"}], "]"}], "*", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"I", "*", "\[Gamma]"}], "+", 
                 RowBox[{"e", "[", 
                  RowBox[{"[", "3", "]"}], "]"}]}], ")"}], "*", 
               RowBox[{"#", "/", 
                RowBox[{"Tr", "[", "#", "]"}]}]}], ")"}]}], "&"}], "/@", 
           RowBox[{"{", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"Transpose", "[", 
               RowBox[{"{", 
                RowBox[{"K1", "[", 
                 RowBox[{"[", 
                  RowBox[{"1", ",", "x", ",", "y", ",", 
                   RowBox[{"c", "[", 
                    RowBox[{"[", "3", "]"}], "]"}]}], "]"}], "]"}], "}"}], 
               "]"}], " ", ".", " ", 
              RowBox[{"{", 
               RowBox[{"K1", "[", 
                RowBox[{"[", 
                 RowBox[{"2", ",", "x", ",", "y", ",", 
                  RowBox[{"c", "[", 
                   RowBox[{"[", "3", "]"}], "]"}]}], "]"}], "]"}], "}"}]}], 
             ")"}], "}"}]}], ",", "\n", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"e", "[", 
              RowBox[{"[", "4", "]"}], "]"}], "*", 
             RowBox[{"K1", "[", 
              RowBox[{"[", 
               RowBox[{"7", ",", "x", ",", "y", ",", 
                RowBox[{"c", "[", 
                 RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "]"}], "*", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"I", "*", "\[Gamma]"}], "+", 
                 RowBox[{"e", "[", 
                  RowBox[{"[", "4", "]"}], "]"}]}], ")"}], "*", 
               RowBox[{"#", "/", 
                RowBox[{"Tr", "[", "#", "]"}]}]}], ")"}]}], "&"}], "/@", 
           RowBox[{"{", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"Transpose", "[", 
               RowBox[{"{", 
                RowBox[{"K1", "[", 
                 RowBox[{"[", 
                  RowBox[{"1", ",", "x", ",", "y", ",", 
                   RowBox[{"c", "[", 
                    RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "]"}], "}"}], 
               "]"}], " ", ".", " ", 
              RowBox[{"{", 
               RowBox[{"K1", "[", 
                RowBox[{"[", 
                 RowBox[{"2", ",", "x", ",", "y", ",", 
                  RowBox[{"c", "[", 
                   RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "]"}], "}"}]}], 
             ")"}], "}"}]}]}], "\n", "}"}], "-", 
        RowBox[{"{", "\n", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"e", "[", 
              RowBox[{"[", "1", "]"}], "]"}], "*", 
             RowBox[{"K1", "[", 
              RowBox[{"[", 
               RowBox[{"7", ",", "x", ",", "y", ",", 
                RowBox[{"c", "[", 
                 RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "]"}], "*", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"e", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], "-", "1"}], ")"}], "*", 
               RowBox[{"#", "/", 
                RowBox[{"Tr", "[", "#", "]"}]}]}], ")"}]}], "&"}], "/@", 
           RowBox[{"{", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"Transpose", "[", 
               RowBox[{"{", 
                RowBox[{"K1", "[", 
                 RowBox[{"[", 
                  RowBox[{"1", ",", "f", ",", 
                   RowBox[{"Sid", "[", 
                    RowBox[{"[", "x", "]"}], "]"}], ",", 
                   RowBox[{"c", "[", 
                    RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "]"}], "}"}], 
               "]"}], " ", ".", " ", 
              RowBox[{"{", 
               RowBox[{"K1", "[", 
                RowBox[{"[", 
                 RowBox[{"2", ",", "x", ",", "y", ",", 
                  RowBox[{"c", "[", 
                   RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "]"}], "}"}]}], 
             ")"}], "}"}]}], ",", "\n", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"e", "[", 
              RowBox[{"[", "2", "]"}], "]"}], "*", 
             RowBox[{"K1", "[", 
              RowBox[{"[", 
               RowBox[{"7", ",", "x", ",", "y", ",", 
                RowBox[{"c", "[", 
                 RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "]"}], "*", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"e", "[", 
                  RowBox[{"[", "2", "]"}], "]"}], "-", "1"}], ")"}], "*", 
               RowBox[{"#", "/", 
                RowBox[{"Tr", "[", "#", "]"}]}]}], ")"}]}], "&"}], "/@", 
           RowBox[{"{", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"Transpose", "[", 
               RowBox[{"{", 
                RowBox[{"K1", "[", 
                 RowBox[{"[", 
                  RowBox[{"1", ",", "f", ",", 
                   RowBox[{"Sid", "[", 
                    RowBox[{"[", "x", "]"}], "]"}], ",", 
                   RowBox[{"c", "[", 
                    RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "]"}], "}"}], 
               "]"}], " ", ".", " ", 
              RowBox[{"{", 
               RowBox[{"K1", "[", 
                RowBox[{"[", 
                 RowBox[{"2", ",", "x", ",", "y", ",", 
                  RowBox[{"c", "[", 
                   RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "]"}], "}"}]}], 
             ")"}], "}"}]}], ",", "\n", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"e", "[", 
              RowBox[{"[", "3", "]"}], "]"}], "*", 
             RowBox[{"K1", "[", 
              RowBox[{"[", 
               RowBox[{"7", ",", "x", ",", "y", ",", 
                RowBox[{"c", "[", 
                 RowBox[{"[", "3", "]"}], "]"}]}], "]"}], "]"}], "*", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"e", "[", 
                  RowBox[{"[", "3", "]"}], "]"}], "-", "1"}], ")"}], "*", 
               RowBox[{"#", "/", 
                RowBox[{"Tr", "[", "#", "]"}]}]}], ")"}]}], "&"}], "/@", 
           RowBox[{"{", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"Transpose", "[", 
               RowBox[{"{", 
                RowBox[{"K1", "[", 
                 RowBox[{"[", 
                  RowBox[{"1", ",", "f", ",", 
                   RowBox[{"Sid", "[", 
                    RowBox[{"[", "x", "]"}], "]"}], ",", 
                   RowBox[{"c", "[", 
                    RowBox[{"[", "3", "]"}], "]"}]}], "]"}], "]"}], "}"}], 
               "]"}], " ", ".", " ", 
              RowBox[{"{", 
               RowBox[{"K1", "[", 
                RowBox[{"[", 
                 RowBox[{"2", ",", "x", ",", "y", ",", 
                  RowBox[{"c", "[", 
                   RowBox[{"[", "3", "]"}], "]"}]}], "]"}], "]"}], "}"}]}], 
             ")"}], "}"}]}], ",", "\n", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"e", "[", 
              RowBox[{"[", "4", "]"}], "]"}], "*", 
             RowBox[{"K1", "[", 
              RowBox[{"[", 
               RowBox[{"7", ",", "x", ",", "y", ",", 
                RowBox[{"c", "[", 
                 RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "]"}], "*", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"e", "[", 
                  RowBox[{"[", "4", "]"}], "]"}], "-", "1"}], ")"}], "*", 
               RowBox[{"#", "/", 
                RowBox[{"Tr", "[", "#", "]"}]}]}], ")"}]}], "&"}], "/@", 
           RowBox[{"{", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"Transpose", "[", 
               RowBox[{"{", 
                RowBox[{"K1", "[", 
                 RowBox[{"[", 
                  RowBox[{"1", ",", "f", ",", 
                   RowBox[{"Sid", "[", 
                    RowBox[{"[", "x", "]"}], "]"}], ",", 
                   RowBox[{"c", "[", 
                    RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "]"}], "}"}], 
               "]"}], " ", ".", " ", 
              RowBox[{"{", 
               RowBox[{"K1", "[", 
                RowBox[{"[", 
                 RowBox[{"2", ",", "x", ",", "y", ",", 
                  RowBox[{"c", "[", 
                   RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "]"}], "}"}]}], 
             ")"}], "}"}]}]}], "\n", "}"}]}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"I", "*", "\[Gamma]"}], "+", "1"}], ")"}]}]}]}], "\n", 
   "]"}]}]], "Code",
 CellLabel->
  "In[172]:=",ExpressionUUID->"09b61c9c-c6df-429b-b45f-0cd43ff13897"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"ArrayReshape", "[", 
    RowBox[{
     RowBox[{"{", "\n", 
      RowBox[{
       RowBox[{
        RowBox[{"pface7", "[", 
         RowBox[{"1", ",", "2", ",", 
          RowBox[{"st", "[", 
           RowBox[{"[", "11", "]"}], "]"}]}], "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", "\n", 
       RowBox[{
        RowBox[{"pface7", "[", 
         RowBox[{"1", ",", "4", ",", 
          RowBox[{"st", "[", 
           RowBox[{"[", "11", "]"}], "]"}]}], "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", "\n", 
       RowBox[{
        RowBox[{"pface7", "[", 
         RowBox[{"2", ",", "2", ",", 
          RowBox[{"st", "[", 
           RowBox[{"[", "11", "]"}], "]"}]}], "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", "\n", 
       RowBox[{
        RowBox[{"pface7", "[", 
         RowBox[{"2", ",", "6", ",", 
          RowBox[{"st", "[", 
           RowBox[{"[", "6", "]"}], "]"}]}], "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", "\n", 
       RowBox[{
        RowBox[{"pface7", "[", 
         RowBox[{"3", ",", "4", ",", 
          RowBox[{"st", "[", 
           RowBox[{"[", "6", "]"}], "]"}]}], "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", "\n", 
       RowBox[{
        RowBox[{"pface7", "[", 
         RowBox[{"3", ",", "6", ",", 
          RowBox[{"st", "[", 
           RowBox[{"[", "6", "]"}], "]"}]}], "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}]}], "\n", "}"}], ",", "\n", 
     RowBox[{"{", 
      RowBox[{"12", ",", "3"}], "}"}]}], "\n", "]"}], "//", "Sort"}], 
  "*)"}]], "Code",
 CellChangeTimes->{{3.8654054707928343`*^9, 3.8654054734400835`*^9}},
 CellLabel->
  "In[173]:=",ExpressionUUID->"93452714-bfcf-4b32-b38a-2f098c12e0cb"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"ArrayReshape", "[", 
    RowBox[{
     RowBox[{"{", "\n", 
      RowBox[{
       RowBox[{
        RowBox[{"pface5", "[", 
         RowBox[{"3", ",", "5", ",", 
          RowBox[{"st", "[", 
           RowBox[{"[", "11", "]"}], "]"}]}], "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", "\n", 
       RowBox[{
        RowBox[{"pface5", "[", 
         RowBox[{"3", ",", "3", ",", 
          RowBox[{"st", "[", 
           RowBox[{"[", "11", "]"}], "]"}]}], "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", "\n", 
       RowBox[{
        RowBox[{"pface5", "[", 
         RowBox[{"3", ",", "1", ",", 
          RowBox[{"st", "[", 
           RowBox[{"[", "6", "]"}], "]"}]}], "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", "\n", 
       RowBox[{
        RowBox[{"pface5", "[", 
         RowBox[{"2", ",", "5", ",", 
          RowBox[{"st", "[", 
           RowBox[{"[", "11", "]"}], "]"}]}], "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", "\n", 
       RowBox[{
        RowBox[{"pface5", "[", 
         RowBox[{"2", ",", "3", ",", 
          RowBox[{"st", "[", 
           RowBox[{"[", "6", "]"}], "]"}]}], "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", "\n", 
       RowBox[{
        RowBox[{"pface5", "[", 
         RowBox[{"2", ",", "1", ",", 
          RowBox[{"st", "[", 
           RowBox[{"[", "6", "]"}], "]"}]}], "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", "\n", 
       RowBox[{
        RowBox[{"pface5", "[", 
         RowBox[{"1", ",", "5", ",", 
          RowBox[{"st", "[", 
           RowBox[{"[", "6", "]"}], "]"}]}], "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", "\n", 
       RowBox[{
        RowBox[{"pface5", "[", 
         RowBox[{"1", ",", "3", ",", 
          RowBox[{"st", "[", 
           RowBox[{"[", "6", "]"}], "]"}]}], "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", "\n", 
       RowBox[{
        RowBox[{"pface5", "[", 
         RowBox[{"1", ",", "1", ",", 
          RowBox[{"st", "[", 
           RowBox[{"[", "6", "]"}], "]"}]}], "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}]}], "\n", "}"}], ",", "\n", 
     RowBox[{"{", 
      RowBox[{"18", ",", "3"}], "}"}]}], "\n", "]"}], "//", "Sort"}], "\n", 
  "*)"}]], "Code",
 CellChangeTimes->{{3.865405476726611*^9, 3.865405485484841*^9}},
 CellLabel->
  "In[174]:=",ExpressionUUID->"2defaa6d-b7b6-46df-b4f8-afe18f374352"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Tests1", "[", "ss1_", "]"}], ":=", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "K1", ",", "st", ",", "Te1", ",", "Te2", ",", "Te3", ",", "A1", ",", 
       "A2", ",", "A3", ",", "A4", ",", "A5", ",", "B1", ",", "B2", ",", "B3",
        ",", "B4", ",", "B5", ",", "C1", ",", "C2", ",", "C3", ",", "C5", ",",
        "C6", ",", "D1", ",", "D2", ",", "D3", ",", "D5", ",", "D6", ",", 
       "E1", ",", "E3", ",", "E4", ",", "E5", ",", "E6", ",", "F1", ",", "F3",
        ",", "F4", ",", "F5", ",", "F6"}], "}"}], ",", "\n", 
     RowBox[{
      RowBox[{"st", "=", 
       RowBox[{"ArrayReshape", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"{", 
             RowBox[{"x", ",", "y", ",", "z", ",", "t"}], "}"}], "-", 
            RowBox[{"{", 
             RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "}"}]}], ",", 
           RowBox[{"{", 
            RowBox[{"x", ",", "0", ",", "2", ",", "2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"y", ",", "0", ",", "2", ",", "2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"z", ",", "0", ",", "2", ",", "2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"t", ",", "0", ",", "2", ",", "2"}], "}"}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"16", ",", "4"}], "}"}]}], "]"}]}], ";", "\n", 
      RowBox[{"K1", "=", 
       RowBox[{"ActionFC", "[", "ss1", "]"}]}], ";", "\n", 
      RowBox[{"Te1", "=", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"Total", "[", 
           RowBox[{"face5", "[", 
            RowBox[{"3", ",", "5", ",", 
             RowBox[{"st", "[", 
              RowBox[{"[", "11", "]"}], "]"}], ",", "ss1"}], "]"}], "]"}], 
          "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", "\n", 
         RowBox[{
          RowBox[{"Total", "[", 
           RowBox[{"face5", "[", 
            RowBox[{"3", ",", "3", ",", 
             RowBox[{"st", "[", 
              RowBox[{"[", "11", "]"}], "]"}], ",", "ss1"}], "]"}], "]"}], 
          "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", "\n", 
         RowBox[{
          RowBox[{"Total", "[", 
           RowBox[{"face5", "[", 
            RowBox[{"3", ",", "1", ",", 
             RowBox[{"st", "[", 
              RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", "\n", 
         RowBox[{
          RowBox[{"Total", "[", 
           RowBox[{"face5", "[", 
            RowBox[{"2", ",", "5", ",", 
             RowBox[{"st", "[", 
              RowBox[{"[", "11", "]"}], "]"}], ",", "ss1"}], "]"}], "]"}], 
          "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", "\n", 
         RowBox[{
          RowBox[{"Total", "[", 
           RowBox[{"face5", "[", 
            RowBox[{"2", ",", "3", ",", 
             RowBox[{"st", "[", 
              RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", "\n", 
         RowBox[{
          RowBox[{"Total", "[", 
           RowBox[{"face5", "[", 
            RowBox[{"2", ",", "1", ",", 
             RowBox[{"st", "[", 
              RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", "\n", 
         RowBox[{
          RowBox[{"Total", "[", 
           RowBox[{"face5", "[", 
            RowBox[{"1", ",", "5", ",", 
             RowBox[{"st", "[", 
              RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", "\n", 
         RowBox[{
          RowBox[{"Total", "[", 
           RowBox[{"face5", "[", 
            RowBox[{"1", ",", "3", ",", 
             RowBox[{"st", "[", 
              RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", "\n", 
         RowBox[{
          RowBox[{"Total", "[", 
           RowBox[{"face5", "[", 
            RowBox[{"1", ",", "1", ",", 
             RowBox[{"st", "[", 
              RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", "\n", 
         RowBox[{
          RowBox[{"Total", "[", 
           RowBox[{"face11", "[", 
            RowBox[{"3", ",", "5", ",", 
             RowBox[{"st", "[", 
              RowBox[{"[", "11", "]"}], "]"}], ",", "ss1"}], "]"}], "]"}], 
          "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", "\n", 
         RowBox[{
          RowBox[{"Total", "[", 
           RowBox[{"face11", "[", 
            RowBox[{"3", ",", "3", ",", 
             RowBox[{"st", "[", 
              RowBox[{"[", "11", "]"}], "]"}], ",", "ss1"}], "]"}], "]"}], 
          "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", "\n", 
         RowBox[{
          RowBox[{"Total", "[", 
           RowBox[{"face11", "[", 
            RowBox[{"3", ",", "1", ",", 
             RowBox[{"st", "[", 
              RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", "\n", 
         RowBox[{
          RowBox[{"Total", "[", 
           RowBox[{"face11", "[", 
            RowBox[{"2", ",", "5", ",", 
             RowBox[{"st", "[", 
              RowBox[{"[", "11", "]"}], "]"}], ",", "ss1"}], "]"}], "]"}], 
          "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", "\n", 
         RowBox[{
          RowBox[{"Total", "[", 
           RowBox[{"face11", "[", 
            RowBox[{"2", ",", "3", ",", 
             RowBox[{"st", "[", 
              RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", "\n", 
         RowBox[{
          RowBox[{"Total", "[", 
           RowBox[{"face11", "[", 
            RowBox[{"2", ",", "1", ",", 
             RowBox[{"st", "[", 
              RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", "\n", 
         RowBox[{
          RowBox[{"Total", "[", 
           RowBox[{"face11", "[", 
            RowBox[{"1", ",", "5", ",", 
             RowBox[{"st", "[", 
              RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", "\n", 
         RowBox[{
          RowBox[{"Total", "[", 
           RowBox[{"face11", "[", 
            RowBox[{"1", ",", "3", ",", 
             RowBox[{"st", "[", 
              RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", "\n", 
         RowBox[{
          RowBox[{"Total", "[", 
           RowBox[{"face11", "[", 
            RowBox[{"1", ",", "1", ",", 
             RowBox[{"st", "[", 
              RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], ";", "\n", 
      RowBox[{"Te2", "=", 
       RowBox[{"{", "\n", 
        RowBox[{
         RowBox[{
          RowBox[{"Total", "[", 
           RowBox[{"face7", "[", 
            RowBox[{"1", ",", "2", ",", 
             RowBox[{"st", "[", 
              RowBox[{"[", "11", "]"}], "]"}], ",", "ss1"}], "]"}], "]"}], 
          "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", "\n", 
         RowBox[{
          RowBox[{"Total", "[", 
           RowBox[{"face7", "[", 
            RowBox[{"1", ",", "4", ",", 
             RowBox[{"st", "[", 
              RowBox[{"[", "11", "]"}], "]"}], ",", "ss1"}], "]"}], "]"}], 
          "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", "\n", 
         RowBox[{
          RowBox[{"Total", "[", 
           RowBox[{"face7", "[", 
            RowBox[{"2", ",", "2", ",", 
             RowBox[{"st", "[", 
              RowBox[{"[", "11", "]"}], "]"}], ",", "ss1"}], "]"}], "]"}], 
          "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", "\n", 
         RowBox[{
          RowBox[{"Total", "[", 
           RowBox[{"face7", "[", 
            RowBox[{"2", ",", "6", ",", 
             RowBox[{"st", "[", 
              RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", "\n", 
         RowBox[{
          RowBox[{"Total", "[", 
           RowBox[{"face7", "[", 
            RowBox[{"3", ",", "4", ",", 
             RowBox[{"st", "[", 
              RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", "\n", 
         RowBox[{
          RowBox[{"Total", "[", 
           RowBox[{"face7", "[", 
            RowBox[{"3", ",", "6", ",", 
             RowBox[{"st", "[", 
              RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", "\n", 
         RowBox[{
          RowBox[{"Total", "[", 
           RowBox[{"face8", "[", 
            RowBox[{"1", ",", "2", ",", 
             RowBox[{"st", "[", 
              RowBox[{"[", "11", "]"}], "]"}], ",", "ss1"}], "]"}], "]"}], 
          "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", "\n", 
         RowBox[{
          RowBox[{"Total", "[", 
           RowBox[{"face8", "[", 
            RowBox[{"1", ",", "4", ",", 
             RowBox[{"st", "[", 
              RowBox[{"[", "11", "]"}], "]"}], ",", "ss1"}], "]"}], "]"}], 
          "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", "\n", 
         RowBox[{
          RowBox[{"Total", "[", 
           RowBox[{"face8", "[", 
            RowBox[{"2", ",", "2", ",", 
             RowBox[{"st", "[", 
              RowBox[{"[", "11", "]"}], "]"}], ",", "ss1"}], "]"}], "]"}], 
          "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", "\n", 
         RowBox[{
          RowBox[{"Total", "[", 
           RowBox[{"face8", "[", 
            RowBox[{"2", ",", "6", ",", 
             RowBox[{"st", "[", 
              RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", "\n", 
         RowBox[{
          RowBox[{"Total", "[", 
           RowBox[{"face8", "[", 
            RowBox[{"3", ",", "4", ",", 
             RowBox[{"st", "[", 
              RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", "\n", 
         RowBox[{
          RowBox[{"Total", "[", 
           RowBox[{"face8", "[", 
            RowBox[{"3", ",", "6", ",", 
             RowBox[{"st", "[", 
              RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], ";", "\n", 
      RowBox[{"A2", "=", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"3", ",", "1", ",", "2"}], "]"}], "]"}], " ", ".", " ", 
            RowBox[{"#", "[", 
             RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
            RowBox[{"Inverse", "[", 
             RowBox[{"K1", "[", 
              RowBox[{"[", 
               RowBox[{"3", ",", "1", ",", "2"}], "]"}], "]"}], "]"}]}], 
           "&"}], "/@", 
          RowBox[{"face8", "[", 
           RowBox[{"1", ",", "2", ",", 
            RowBox[{"st", "[", 
             RowBox[{"[", "11", "]"}], "]"}], ",", "ss1"}], "]"}]}], ")"}], "//",
         "Chop"}]}], ";", "\n", 
      RowBox[{"A4", "=", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"3", ",", "1", ",", "4"}], "]"}], "]"}], " ", ".", " ", 
            RowBox[{"#", "[", 
             RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
            RowBox[{"Inverse", "[", 
             RowBox[{"K1", "[", 
              RowBox[{"[", 
               RowBox[{"3", ",", "1", ",", "4"}], "]"}], "]"}], "]"}]}], 
           "&"}], "/@", 
          RowBox[{"face8", "[", 
           RowBox[{"1", ",", "4", ",", 
            RowBox[{"st", "[", 
             RowBox[{"[", "11", "]"}], "]"}], ",", "ss1"}], "]"}]}], ")"}], "//",
         "Chop"}]}], ";", "\n", 
      RowBox[{"A1", "=", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"K1", "[", 
            RowBox[{"[", 
             RowBox[{"3", ",", "1", ",", "1"}], "]"}], "]"}], " ", ".", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
           RowBox[{"Inverse", "[", 
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"3", ",", "1", ",", "1"}], "]"}], "]"}], "]"}]}], "&"}],
          "/@", 
         RowBox[{"face11", "[", 
          RowBox[{"1", ",", "1", ",", 
           RowBox[{"st", "[", 
            RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}]}], "//", 
        "Chop"}]}], ";", "\n", 
      RowBox[{"A3", "=", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"K1", "[", 
            RowBox[{"[", 
             RowBox[{"3", ",", "1", ",", "3"}], "]"}], "]"}], " ", ".", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
           RowBox[{"Inverse", "[", 
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"3", ",", "1", ",", "3"}], "]"}], "]"}], "]"}]}], "&"}],
          "/@", 
         RowBox[{"face11", "[", 
          RowBox[{"1", ",", "3", ",", 
           RowBox[{"st", "[", 
            RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}]}], "//", 
        "Chop"}]}], ";", "\n", 
      RowBox[{"A5", "=", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"K1", "[", 
            RowBox[{"[", 
             RowBox[{"3", ",", "1", ",", "5"}], "]"}], "]"}], " ", ".", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
           RowBox[{"Inverse", "[", 
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"3", ",", "1", ",", "5"}], "]"}], "]"}], "]"}]}], "&"}],
          "/@", 
         RowBox[{"face11", "[", 
          RowBox[{"1", ",", "5", ",", 
           RowBox[{"st", "[", 
            RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}]}], "//", 
        "Chop"}]}], ";", "\n", 
      RowBox[{"B2", "=", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Inverse", "[", 
             RowBox[{"K1", "[", 
              RowBox[{"[", 
               RowBox[{"4", ",", "1", ",", "2"}], "]"}], "]"}], "]"}], " ", 
            ".", " ", 
            RowBox[{"#", "[", 
             RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"4", ",", "1", ",", "2"}], "]"}], "]"}]}], "&"}], "/@", 
          RowBox[{"face7", "[", 
           RowBox[{"1", ",", "2", ",", 
            RowBox[{"st", "[", 
             RowBox[{"[", "11", "]"}], "]"}], ",", "ss1"}], "]"}]}], ")"}], "//",
         "Chop"}]}], ";", "\n", 
      RowBox[{"B4", "=", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Inverse", "[", 
             RowBox[{"K1", "[", 
              RowBox[{"[", 
               RowBox[{"4", ",", "1", ",", "4"}], "]"}], "]"}], "]"}], " ", 
            ".", " ", 
            RowBox[{"#", "[", 
             RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"4", ",", "1", ",", "4"}], "]"}], "]"}]}], "&"}], "/@", 
          RowBox[{"face7", "[", 
           RowBox[{"1", ",", "4", ",", 
            RowBox[{"st", "[", 
             RowBox[{"[", "11", "]"}], "]"}], ",", "ss1"}], "]"}]}], ")"}], "//",
         "Chop"}]}], ";", "\n", 
      RowBox[{"B1", "=", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Inverse", "[", 
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"4", ",", "1", ",", "1"}], "]"}], "]"}], "]"}], " ", 
           ".", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
           RowBox[{"K1", "[", 
            RowBox[{"[", 
             RowBox[{"4", ",", "1", ",", "1"}], "]"}], "]"}]}], "&"}], "/@", 
         RowBox[{"face5", "[", 
          RowBox[{"1", ",", "1", ",", 
           RowBox[{"st", "[", 
            RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}]}], "//", 
        "Chop"}]}], ";", "\n", 
      RowBox[{"B3", "=", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Inverse", "[", 
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"4", ",", "1", ",", "3"}], "]"}], "]"}], "]"}], " ", 
           ".", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
           RowBox[{"K1", "[", 
            RowBox[{"[", 
             RowBox[{"4", ",", "1", ",", "3"}], "]"}], "]"}]}], "&"}], "/@", 
         RowBox[{"face5", "[", 
          RowBox[{"1", ",", "3", ",", 
           RowBox[{"st", "[", 
            RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}]}], "//", 
        "Chop"}]}], ";", "\n", 
      RowBox[{"B5", "=", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Inverse", "[", 
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"4", ",", "1", ",", "5"}], "]"}], "]"}], "]"}], " ", 
           ".", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
           RowBox[{"K1", "[", 
            RowBox[{"[", 
             RowBox[{"4", ",", "1", ",", "5"}], "]"}], "]"}]}], "&"}], "/@", 
         RowBox[{"face5", "[", 
          RowBox[{"1", ",", "5", ",", 
           RowBox[{"st", "[", 
            RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}]}], "//", 
        "Chop"}]}], ";", "\n", 
      RowBox[{"C2", "=", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Inverse", "[", 
             RowBox[{"K1", "[", 
              RowBox[{"[", 
               RowBox[{"4", ",", "2", ",", "2"}], "]"}], "]"}], "]"}], " ", 
            ".", " ", 
            RowBox[{"#", "[", 
             RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"4", ",", "2", ",", "2"}], "]"}], "]"}]}], "&"}], "/@", 
          RowBox[{"face7", "[", 
           RowBox[{"2", ",", "2", ",", 
            RowBox[{"st", "[", 
             RowBox[{"[", "11", "]"}], "]"}], ",", "ss1"}], "]"}]}], ")"}], "//",
         "Chop"}]}], ";", "\n", 
      RowBox[{"C6", "=", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Inverse", "[", 
             RowBox[{"K1", "[", 
              RowBox[{"[", 
               RowBox[{"4", ",", "2", ",", "6"}], "]"}], "]"}], "]"}], " ", 
            ".", " ", 
            RowBox[{"#", "[", 
             RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"4", ",", "2", ",", "6"}], "]"}], "]"}]}], "&"}], "/@", 
          RowBox[{"face7", "[", 
           RowBox[{"2", ",", "6", ",", 
            RowBox[{"st", "[", 
             RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}]}], ")"}], "//",
         "Chop"}]}], ";", "\n", 
      RowBox[{"C1", "=", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Inverse", "[", 
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"4", ",", "2", ",", "1"}], "]"}], "]"}], "]"}], " ", 
           ".", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
           RowBox[{"K1", "[", 
            RowBox[{"[", 
             RowBox[{"4", ",", "2", ",", "1"}], "]"}], "]"}]}], "&"}], "/@", 
         RowBox[{"face5", "[", 
          RowBox[{"2", ",", "1", ",", 
           RowBox[{"st", "[", 
            RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}]}], "//", 
        "Chop"}]}], ";", "\n", 
      RowBox[{"C3", "=", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Inverse", "[", 
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"4", ",", "2", ",", "3"}], "]"}], "]"}], "]"}], " ", 
           ".", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
           RowBox[{"K1", "[", 
            RowBox[{"[", 
             RowBox[{"4", ",", "2", ",", "3"}], "]"}], "]"}]}], "&"}], "/@", 
         RowBox[{"face5", "[", 
          RowBox[{"2", ",", "3", ",", 
           RowBox[{"st", "[", 
            RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}]}], "//", 
        "Chop"}]}], ";", "\n", 
      RowBox[{"C5", "=", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Inverse", "[", 
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"4", ",", "2", ",", "5"}], "]"}], "]"}], "]"}], " ", 
           ".", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
           RowBox[{"K1", "[", 
            RowBox[{"[", 
             RowBox[{"4", ",", "2", ",", "5"}], "]"}], "]"}]}], "&"}], "/@", 
         RowBox[{"face5", "[", 
          RowBox[{"2", ",", "5", ",", 
           RowBox[{"st", "[", 
            RowBox[{"[", "11", "]"}], "]"}], ",", "ss1"}], "]"}]}], "//", 
        "Chop"}]}], ";", "\n", 
      RowBox[{"D2", "=", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"3", ",", "2", ",", "2"}], "]"}], "]"}], " ", ".", " ", 
            RowBox[{"#", "[", 
             RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
            RowBox[{"Inverse", "[", 
             RowBox[{"K1", "[", 
              RowBox[{"[", 
               RowBox[{"3", ",", "2", ",", "2"}], "]"}], "]"}], "]"}]}], 
           "&"}], "/@", 
          RowBox[{"face8", "[", 
           RowBox[{"2", ",", "2", ",", 
            RowBox[{"st", "[", 
             RowBox[{"[", "11", "]"}], "]"}], ",", "ss1"}], "]"}]}], ")"}], "//",
         "Chop"}]}], ";", "\n", 
      RowBox[{"D6", "=", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"3", ",", "2", ",", "6"}], "]"}], "]"}], " ", ".", " ", 
            RowBox[{"#", "[", 
             RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
            RowBox[{"Inverse", "[", 
             RowBox[{"K1", "[", 
              RowBox[{"[", 
               RowBox[{"3", ",", "2", ",", "6"}], "]"}], "]"}], "]"}]}], 
           "&"}], "/@", 
          RowBox[{"face8", "[", 
           RowBox[{"2", ",", "6", ",", 
            RowBox[{"st", "[", 
             RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}]}], ")"}], "//",
         "Chop"}]}], ";", "\n", 
      RowBox[{"D1", "=", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"K1", "[", 
            RowBox[{"[", 
             RowBox[{"3", ",", "2", ",", "1"}], "]"}], "]"}], " ", ".", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
           RowBox[{"Inverse", "[", 
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"3", ",", "2", ",", "1"}], "]"}], "]"}], "]"}]}], "&"}],
          "/@", 
         RowBox[{"face11", "[", 
          RowBox[{"2", ",", "1", ",", 
           RowBox[{"st", "[", 
            RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}]}], "//", 
        "Chop"}]}], ";", "\n", 
      RowBox[{"D3", "=", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"K1", "[", 
            RowBox[{"[", 
             RowBox[{"3", ",", "2", ",", "3"}], "]"}], "]"}], " ", ".", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
           RowBox[{"Inverse", "[", 
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"3", ",", "2", ",", "3"}], "]"}], "]"}], "]"}]}], "&"}],
          "/@", 
         RowBox[{"face11", "[", 
          RowBox[{"2", ",", "3", ",", 
           RowBox[{"st", "[", 
            RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}]}], "//", 
        "Chop"}]}], ";", "\n", 
      RowBox[{"D5", "=", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"K1", "[", 
            RowBox[{"[", 
             RowBox[{"3", ",", "2", ",", "5"}], "]"}], "]"}], " ", ".", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
           RowBox[{"Inverse", "[", 
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"3", ",", "2", ",", "5"}], "]"}], "]"}], "]"}]}], "&"}],
          "/@", 
         RowBox[{"face11", "[", 
          RowBox[{"2", ",", "5", ",", 
           RowBox[{"st", "[", 
            RowBox[{"[", "11", "]"}], "]"}], ",", "ss1"}], "]"}]}], "//", 
        "Chop"}]}], ";", "\n", 
      RowBox[{"E4", "=", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Inverse", "[", 
             RowBox[{"K1", "[", 
              RowBox[{"[", 
               RowBox[{"4", ",", "3", ",", "4"}], "]"}], "]"}], "]"}], " ", 
            ".", " ", 
            RowBox[{"#", "[", 
             RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"4", ",", "3", ",", "4"}], "]"}], "]"}]}], "&"}], "/@", 
          RowBox[{"face7", "[", 
           RowBox[{"3", ",", "4", ",", 
            RowBox[{"st", "[", 
             RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}]}], ")"}], "//",
         "Chop"}]}], ";", "\n", 
      RowBox[{"E6", "=", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Inverse", "[", 
             RowBox[{"K1", "[", 
              RowBox[{"[", 
               RowBox[{"4", ",", "3", ",", "6"}], "]"}], "]"}], "]"}], " ", 
            ".", " ", 
            RowBox[{"#", "[", 
             RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"4", ",", "3", ",", "6"}], "]"}], "]"}]}], "&"}], "/@", 
          RowBox[{"face7", "[", 
           RowBox[{"3", ",", "6", ",", 
            RowBox[{"st", "[", 
             RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}]}], ")"}], "//",
         "Chop"}]}], ";", "\n", 
      RowBox[{"E1", "=", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Inverse", "[", 
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"4", ",", "3", ",", "1"}], "]"}], "]"}], "]"}], " ", 
           ".", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
           RowBox[{"K1", "[", 
            RowBox[{"[", 
             RowBox[{"4", ",", "3", ",", "1"}], "]"}], "]"}]}], "&"}], "/@", 
         RowBox[{"face5", "[", 
          RowBox[{"3", ",", "1", ",", 
           RowBox[{"st", "[", 
            RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}]}], "//", 
        "Chop"}]}], ";", "\n", 
      RowBox[{"E3", "=", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Inverse", "[", 
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"4", ",", "3", ",", "3"}], "]"}], "]"}], "]"}], " ", 
           ".", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
           RowBox[{"K1", "[", 
            RowBox[{"[", 
             RowBox[{"4", ",", "3", ",", "3"}], "]"}], "]"}]}], "&"}], "/@", 
         RowBox[{"face5", "[", 
          RowBox[{"3", ",", "3", ",", 
           RowBox[{"st", "[", 
            RowBox[{"[", "11", "]"}], "]"}], ",", "ss1"}], "]"}]}], "//", 
        "Chop"}]}], ";", "\n", 
      RowBox[{"E5", "=", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Inverse", "[", 
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"4", ",", "3", ",", "5"}], "]"}], "]"}], "]"}], " ", 
           ".", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
           RowBox[{"K1", "[", 
            RowBox[{"[", 
             RowBox[{"4", ",", "3", ",", "5"}], "]"}], "]"}]}], "&"}], "/@", 
         RowBox[{"face5", "[", 
          RowBox[{"3", ",", "5", ",", 
           RowBox[{"st", "[", 
            RowBox[{"[", "11", "]"}], "]"}], ",", "ss1"}], "]"}]}], "//", 
        "Chop"}]}], ";", "\n", 
      RowBox[{"F4", "=", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"3", ",", "3", ",", "4"}], "]"}], "]"}], " ", ".", " ", 
            RowBox[{"#", "[", 
             RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
            RowBox[{"Inverse", "[", 
             RowBox[{"K1", "[", 
              RowBox[{"[", 
               RowBox[{"3", ",", "3", ",", "4"}], "]"}], "]"}], "]"}]}], 
           "&"}], "/@", 
          RowBox[{"face8", "[", 
           RowBox[{"3", ",", "4", ",", 
            RowBox[{"st", "[", 
             RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}]}], ")"}], "//",
         "Chop"}]}], ";", "\n", 
      RowBox[{"F6", "=", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"3", ",", "3", ",", "6"}], "]"}], "]"}], " ", ".", " ", 
            RowBox[{"#", "[", 
             RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
            RowBox[{"Inverse", "[", 
             RowBox[{"K1", "[", 
              RowBox[{"[", 
               RowBox[{"3", ",", "3", ",", "6"}], "]"}], "]"}], "]"}]}], 
           "&"}], "/@", 
          RowBox[{"face8", "[", 
           RowBox[{"3", ",", "6", ",", 
            RowBox[{"st", "[", 
             RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}]}], ")"}], "//",
         "Chop"}]}], ";", "\n", 
      RowBox[{"F1", "=", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"K1", "[", 
            RowBox[{"[", 
             RowBox[{"3", ",", "3", ",", "1"}], "]"}], "]"}], " ", ".", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
           RowBox[{"Inverse", "[", 
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"3", ",", "3", ",", "1"}], "]"}], "]"}], "]"}]}], "&"}],
          "/@", 
         RowBox[{"face11", "[", 
          RowBox[{"3", ",", "1", ",", 
           RowBox[{"st", "[", 
            RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}]}], "//", 
        "Chop"}]}], ";", "\n", 
      RowBox[{"F3", "=", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"K1", "[", 
            RowBox[{"[", 
             RowBox[{"3", ",", "3", ",", "3"}], "]"}], "]"}], " ", ".", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
           RowBox[{"Inverse", "[", 
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"3", ",", "3", ",", "3"}], "]"}], "]"}], "]"}]}], "&"}],
          "/@", 
         RowBox[{"face11", "[", 
          RowBox[{"3", ",", "3", ",", 
           RowBox[{"st", "[", 
            RowBox[{"[", "11", "]"}], "]"}], ",", "ss1"}], "]"}]}], "//", 
        "Chop"}]}], ";", "\n", 
      RowBox[{"F5", "=", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"K1", "[", 
            RowBox[{"[", 
             RowBox[{"3", ",", "3", ",", "5"}], "]"}], "]"}], " ", ".", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
           RowBox[{"Inverse", "[", 
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"3", ",", "3", ",", "5"}], "]"}], "]"}], "]"}]}], "&"}],
          "/@", 
         RowBox[{"face11", "[", 
          RowBox[{"3", ",", "5", ",", 
           RowBox[{"st", "[", 
            RowBox[{"[", "11", "]"}], "]"}], ",", "ss1"}], "]"}]}], "//", 
        "Chop"}]}], ";", "\n", 
      RowBox[{"Te3", "=", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"A1", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "+", 
          RowBox[{"A2", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"A1", "[", 
           RowBox[{"[", "2", "]"}], "]"}], "+", 
          RowBox[{"A3", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"A1", "[", 
           RowBox[{"[", "3", "]"}], "]"}], "+", 
          RowBox[{"A4", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"A1", "[", 
           RowBox[{"[", "4", "]"}], "]"}], "+", 
          RowBox[{"A5", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"A2", "[", 
           RowBox[{"[", "2", "]"}], "]"}], "+", 
          RowBox[{"A3", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"A2", "[", 
           RowBox[{"[", "3", "]"}], "]"}], "+", 
          RowBox[{"A4", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"A2", "[", 
           RowBox[{"[", "4", "]"}], "]"}], "+", 
          RowBox[{"A5", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"A3", "[", 
           RowBox[{"[", "3", "]"}], "]"}], "+", 
          RowBox[{"A4", "[", 
           RowBox[{"[", "3", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"A3", "[", 
           RowBox[{"[", "4", "]"}], "]"}], "+", 
          RowBox[{"A5", "[", 
           RowBox[{"[", "3", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"A5", "[", 
           RowBox[{"[", "4", "]"}], "]"}], "+", 
          RowBox[{"A4", "[", 
           RowBox[{"[", "4", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"B2", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "+", 
          RowBox[{"B1", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"B1", "[", 
           RowBox[{"[", "2", "]"}], "]"}], "+", 
          RowBox[{"B3", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"B1", "[", 
           RowBox[{"[", "3", "]"}], "]"}], "+", 
          RowBox[{"B4", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"B1", "[", 
           RowBox[{"[", "4", "]"}], "]"}], "+", 
          RowBox[{"B5", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"B2", "[", 
           RowBox[{"[", "2", "]"}], "]"}], "+", 
          RowBox[{"B3", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}], ",", "\n", 
         RowBox[{
          RowBox[{"B2", "[", 
           RowBox[{"[", "3", "]"}], "]"}], "+", 
          RowBox[{"B4", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"B2", "[", 
           RowBox[{"[", "4", "]"}], "]"}], "+", 
          RowBox[{"B5", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"B3", "[", 
           RowBox[{"[", "3", "]"}], "]"}], "+", 
          RowBox[{"B4", "[", 
           RowBox[{"[", "3", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"B3", "[", 
           RowBox[{"[", "4", "]"}], "]"}], "+", 
          RowBox[{"B5", "[", 
           RowBox[{"[", "3", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"B5", "[", 
           RowBox[{"[", "4", "]"}], "]"}], "+", 
          RowBox[{"B4", "[", 
           RowBox[{"[", "4", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"C1", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "+", 
          RowBox[{"C2", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"C1", "[", 
           RowBox[{"[", "2", "]"}], "]"}], "+", 
          RowBox[{"C3", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"C1", "[", 
           RowBox[{"[", "3", "]"}], "]"}], "+", 
          RowBox[{"C5", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"C1", "[", 
           RowBox[{"[", "4", "]"}], "]"}], "+", 
          RowBox[{"C6", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"C2", "[", 
           RowBox[{"[", "2", "]"}], "]"}], "+", 
          RowBox[{"C3", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"C2", "[", 
           RowBox[{"[", "3", "]"}], "]"}], "+", 
          RowBox[{"C5", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"C2", "[", 
           RowBox[{"[", "4", "]"}], "]"}], "+", 
          RowBox[{"C6", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"C3", "[", 
           RowBox[{"[", "3", "]"}], "]"}], "+", 
          RowBox[{"C5", "[", 
           RowBox[{"[", "3", "]"}], "]"}]}], ",", "\n", 
         RowBox[{
          RowBox[{"C3", "[", 
           RowBox[{"[", "4", "]"}], "]"}], "+", 
          RowBox[{"C6", "[", 
           RowBox[{"[", "3", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"C5", "[", 
           RowBox[{"[", "4", "]"}], "]"}], "+", 
          RowBox[{"C6", "[", 
           RowBox[{"[", "4", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"D1", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "+", 
          RowBox[{"D2", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"D1", "[", 
           RowBox[{"[", "2", "]"}], "]"}], "+", 
          RowBox[{"D3", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"D1", "[", 
           RowBox[{"[", "3", "]"}], "]"}], "+", 
          RowBox[{"D5", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"D1", "[", 
           RowBox[{"[", "4", "]"}], "]"}], "+", 
          RowBox[{"D6", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"D2", "[", 
           RowBox[{"[", "2", "]"}], "]"}], "+", 
          RowBox[{"D3", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"D2", "[", 
           RowBox[{"[", "3", "]"}], "]"}], "+", 
          RowBox[{"D5", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"D2", "[", 
           RowBox[{"[", "4", "]"}], "]"}], "+", 
          RowBox[{"D6", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"D3", "[", 
           RowBox[{"[", "3", "]"}], "]"}], "+", 
          RowBox[{"D5", "[", 
           RowBox[{"[", "3", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"D3", "[", 
           RowBox[{"[", "4", "]"}], "]"}], "+", 
          RowBox[{"D6", "[", 
           RowBox[{"[", "3", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"D5", "[", 
           RowBox[{"[", "4", "]"}], "]"}], "+", 
          RowBox[{"D6", "[", 
           RowBox[{"[", "4", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"E1", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "+", 
          RowBox[{"E3", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], ",", "\n", 
         RowBox[{
          RowBox[{"E1", "[", 
           RowBox[{"[", "2", "]"}], "]"}], "+", 
          RowBox[{"E4", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"E1", "[", 
           RowBox[{"[", "3", "]"}], "]"}], "+", 
          RowBox[{"E5", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"E1", "[", 
           RowBox[{"[", "4", "]"}], "]"}], "+", 
          RowBox[{"E6", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"F1", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "+", 
          RowBox[{"F3", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"F1", "[", 
           RowBox[{"[", "2", "]"}], "]"}], "+", 
          RowBox[{"F4", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"F1", "[", 
           RowBox[{"[", "3", "]"}], "]"}], "+", 
          RowBox[{"F5", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"F1", "[", 
           RowBox[{"[", "4", "]"}], "]"}], "+", 
          RowBox[{"F6", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}]}], "}"}]}], ";", "\n", 
      RowBox[{"{", "\n", 
       RowBox[{"Te1", ",", "\n", "Te2", ",", "\n", "Te3"}], "\n", "}"}]}]}], 
    "\n", "]"}]}], ";"}]], "Code",
 CellLabel->
  "In[175]:=",ExpressionUUID->"4964353c-a74a-4642-b03d-5a4ac8f052d6"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Testss", "[", "ss1_", "]"}], ":=", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "K1", ",", "st", ",", "Te1", ",", "Te2", ",", "Te3", ",", "A1", ",", 
       "A2", ",", "A3", ",", "A4", ",", "A5", ",", "B1", ",", "B2", ",", "B3",
        ",", "B4", ",", "B5", ",", "C1", ",", "C2", ",", "C3", ",", "C5", ",",
        "C6", ",", "D1", ",", "D2", ",", "D3", ",", "D5", ",", "D6", ",", 
       "E1", ",", "E3", ",", "E4", ",", "E5", ",", "E6", ",", "F1", ",", "F3",
        ",", "F4", ",", "F5", ",", "F6"}], "}"}], ",", "\n", 
     RowBox[{
      RowBox[{"st", "=", 
       RowBox[{"ArrayReshape", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"{", 
             RowBox[{"x", ",", "y", ",", "z", ",", "t"}], "}"}], "-", 
            RowBox[{"{", 
             RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "}"}]}], ",", 
           RowBox[{"{", 
            RowBox[{"x", ",", "0", ",", "2", ",", "2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"y", ",", "0", ",", "2", ",", "2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"z", ",", "0", ",", "2", ",", "2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"t", ",", "0", ",", "2", ",", "2"}], "}"}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"16", ",", "4"}], "}"}]}], "]"}]}], ";", "\n", 
      RowBox[{"K1", "=", 
       RowBox[{"ActionFC", "[", "ss1", "]"}]}], ";", "\n", 
      RowBox[{"Te1", "=", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"Total", "[", 
           RowBox[{"face5", "[", 
            RowBox[{"3", ",", "5", ",", 
             RowBox[{"st", "[", 
              RowBox[{"[", "11", "]"}], "]"}], ",", "ss1"}], "]"}], "]"}], 
          "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", "\n", 
         RowBox[{
          RowBox[{"Total", "[", 
           RowBox[{"face5", "[", 
            RowBox[{"3", ",", "3", ",", 
             RowBox[{"st", "[", 
              RowBox[{"[", "11", "]"}], "]"}], ",", "ss1"}], "]"}], "]"}], 
          "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", "\n", 
         RowBox[{
          RowBox[{"Total", "[", 
           RowBox[{"face5", "[", 
            RowBox[{"3", ",", "1", ",", 
             RowBox[{"st", "[", 
              RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", "\n", 
         RowBox[{
          RowBox[{"Total", "[", 
           RowBox[{"face5", "[", 
            RowBox[{"2", ",", "5", ",", 
             RowBox[{"st", "[", 
              RowBox[{"[", "11", "]"}], "]"}], ",", "ss1"}], "]"}], "]"}], 
          "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", "\n", 
         RowBox[{
          RowBox[{"Total", "[", 
           RowBox[{"face5", "[", 
            RowBox[{"2", ",", "3", ",", 
             RowBox[{"st", "[", 
              RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", "\n", 
         RowBox[{
          RowBox[{"Total", "[", 
           RowBox[{"face5", "[", 
            RowBox[{"2", ",", "1", ",", 
             RowBox[{"st", "[", 
              RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", "\n", 
         RowBox[{
          RowBox[{"Total", "[", 
           RowBox[{"face5", "[", 
            RowBox[{"1", ",", "5", ",", 
             RowBox[{"st", "[", 
              RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", "\n", 
         RowBox[{
          RowBox[{"Total", "[", 
           RowBox[{"face5", "[", 
            RowBox[{"1", ",", "3", ",", 
             RowBox[{"st", "[", 
              RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", "\n", 
         RowBox[{
          RowBox[{"Total", "[", 
           RowBox[{"face5", "[", 
            RowBox[{"1", ",", "1", ",", 
             RowBox[{"st", "[", 
              RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", "\n", 
         RowBox[{
          RowBox[{"Total", "[", 
           RowBox[{"face11", "[", 
            RowBox[{"3", ",", "5", ",", 
             RowBox[{"st", "[", 
              RowBox[{"[", "11", "]"}], "]"}], ",", "ss1"}], "]"}], "]"}], 
          "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", "\n", 
         RowBox[{
          RowBox[{"Total", "[", 
           RowBox[{"face11", "[", 
            RowBox[{"3", ",", "3", ",", 
             RowBox[{"st", "[", 
              RowBox[{"[", "11", "]"}], "]"}], ",", "ss1"}], "]"}], "]"}], 
          "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", "\n", 
         RowBox[{
          RowBox[{"Total", "[", 
           RowBox[{"face11", "[", 
            RowBox[{"3", ",", "1", ",", 
             RowBox[{"st", "[", 
              RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", "\n", 
         RowBox[{
          RowBox[{"Total", "[", 
           RowBox[{"face11", "[", 
            RowBox[{"2", ",", "5", ",", 
             RowBox[{"st", "[", 
              RowBox[{"[", "11", "]"}], "]"}], ",", "ss1"}], "]"}], "]"}], 
          "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", "\n", 
         RowBox[{
          RowBox[{"Total", "[", 
           RowBox[{"face11", "[", 
            RowBox[{"2", ",", "3", ",", 
             RowBox[{"st", "[", 
              RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", "\n", 
         RowBox[{
          RowBox[{"Total", "[", 
           RowBox[{"face11", "[", 
            RowBox[{"2", ",", "1", ",", 
             RowBox[{"st", "[", 
              RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", "\n", 
         RowBox[{
          RowBox[{"Total", "[", 
           RowBox[{"face11", "[", 
            RowBox[{"1", ",", "5", ",", 
             RowBox[{"st", "[", 
              RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", "\n", 
         RowBox[{
          RowBox[{"Total", "[", 
           RowBox[{"face11", "[", 
            RowBox[{"1", ",", "3", ",", 
             RowBox[{"st", "[", 
              RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", "\n", 
         RowBox[{
          RowBox[{"Total", "[", 
           RowBox[{"face11", "[", 
            RowBox[{"1", ",", "1", ",", 
             RowBox[{"st", "[", 
              RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], ";", "\n", 
      RowBox[{"Te2", "=", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"Total", "[", 
           RowBox[{"face7", "[", 
            RowBox[{"1", ",", "2", ",", 
             RowBox[{"st", "[", 
              RowBox[{"[", "11", "]"}], "]"}], ",", "ss1"}], "]"}], "]"}], 
          "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", "\n", 
         RowBox[{
          RowBox[{"Total", "[", 
           RowBox[{"face7", "[", 
            RowBox[{"1", ",", "4", ",", 
             RowBox[{"st", "[", 
              RowBox[{"[", "11", "]"}], "]"}], ",", "ss1"}], "]"}], "]"}], 
          "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", "\n", 
         RowBox[{
          RowBox[{"Total", "[", 
           RowBox[{"face7", "[", 
            RowBox[{"2", ",", "2", ",", 
             RowBox[{"st", "[", 
              RowBox[{"[", "11", "]"}], "]"}], ",", "ss1"}], "]"}], "]"}], 
          "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", "\n", 
         RowBox[{
          RowBox[{"Total", "[", 
           RowBox[{"face7", "[", 
            RowBox[{"2", ",", "6", ",", 
             RowBox[{"st", "[", 
              RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", "\n", 
         RowBox[{
          RowBox[{"Total", "[", 
           RowBox[{"face7", "[", 
            RowBox[{"3", ",", "4", ",", 
             RowBox[{"st", "[", 
              RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", "\n", 
         RowBox[{
          RowBox[{"Total", "[", 
           RowBox[{"face7", "[", 
            RowBox[{"3", ",", "6", ",", 
             RowBox[{"st", "[", 
              RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", "\n", 
         RowBox[{
          RowBox[{"Total", "[", 
           RowBox[{"face8", "[", 
            RowBox[{"1", ",", "2", ",", 
             RowBox[{"st", "[", 
              RowBox[{"[", "11", "]"}], "]"}], ",", "ss1"}], "]"}], "]"}], 
          "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", "\n", 
         RowBox[{
          RowBox[{"Total", "[", 
           RowBox[{"face8", "[", 
            RowBox[{"1", ",", "4", ",", 
             RowBox[{"st", "[", 
              RowBox[{"[", "11", "]"}], "]"}], ",", "ss1"}], "]"}], "]"}], 
          "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", "\n", 
         RowBox[{
          RowBox[{"Total", "[", 
           RowBox[{"face8", "[", 
            RowBox[{"2", ",", "2", ",", 
             RowBox[{"st", "[", 
              RowBox[{"[", "11", "]"}], "]"}], ",", "ss1"}], "]"}], "]"}], 
          "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", "\n", 
         RowBox[{
          RowBox[{"Total", "[", 
           RowBox[{"face8", "[", 
            RowBox[{"2", ",", "6", ",", 
             RowBox[{"st", "[", 
              RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", "\n", 
         RowBox[{
          RowBox[{"Total", "[", 
           RowBox[{"face8", "[", 
            RowBox[{"3", ",", "4", ",", 
             RowBox[{"st", "[", 
              RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", "\n", 
         RowBox[{
          RowBox[{"Total", "[", 
           RowBox[{"face8", "[", 
            RowBox[{"3", ",", "6", ",", 
             RowBox[{"st", "[", 
              RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], ";", "\n", 
      RowBox[{"A2", "=", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"3", ",", "1", ",", "2"}], "]"}], "]"}], " ", ".", " ", 
            RowBox[{"#", "[", 
             RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
            RowBox[{"Inverse", "[", 
             RowBox[{"K1", "[", 
              RowBox[{"[", 
               RowBox[{"3", ",", "1", ",", "2"}], "]"}], "]"}], "]"}]}], 
           "&"}], "/@", 
          RowBox[{"face8", "[", 
           RowBox[{"1", ",", "2", ",", 
            RowBox[{"st", "[", 
             RowBox[{"[", "11", "]"}], "]"}], ",", "ss1"}], "]"}]}], ")"}], "//",
         "Chop"}]}], ";", "\n", 
      RowBox[{"A4", "=", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"3", ",", "1", ",", "4"}], "]"}], "]"}], " ", ".", " ", 
            RowBox[{"#", "[", 
             RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
            RowBox[{"Inverse", "[", 
             RowBox[{"K1", "[", 
              RowBox[{"[", 
               RowBox[{"3", ",", "1", ",", "4"}], "]"}], "]"}], "]"}]}], 
           "&"}], "/@", 
          RowBox[{"face8", "[", 
           RowBox[{"1", ",", "4", ",", 
            RowBox[{"st", "[", 
             RowBox[{"[", "11", "]"}], "]"}], ",", "ss1"}], "]"}]}], ")"}], "//",
         "Chop"}]}], ";", "\n", 
      RowBox[{"A1", "=", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"K1", "[", 
            RowBox[{"[", 
             RowBox[{"3", ",", "1", ",", "1"}], "]"}], "]"}], " ", ".", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
           RowBox[{"Inverse", "[", 
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"3", ",", "1", ",", "1"}], "]"}], "]"}], "]"}]}], "&"}],
          "/@", 
         RowBox[{"face11", "[", 
          RowBox[{"1", ",", "1", ",", 
           RowBox[{"st", "[", 
            RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}]}], "//", 
        "Chop"}]}], ";", "\n", 
      RowBox[{"A3", "=", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"K1", "[", 
            RowBox[{"[", 
             RowBox[{"3", ",", "1", ",", "3"}], "]"}], "]"}], " ", ".", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
           RowBox[{"Inverse", "[", 
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"3", ",", "1", ",", "3"}], "]"}], "]"}], "]"}]}], "&"}],
          "/@", 
         RowBox[{"face11", "[", 
          RowBox[{"1", ",", "3", ",", 
           RowBox[{"st", "[", 
            RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}]}], "//", 
        "Chop"}]}], ";", "\n", 
      RowBox[{"A5", "=", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"K1", "[", 
            RowBox[{"[", 
             RowBox[{"3", ",", "1", ",", "5"}], "]"}], "]"}], " ", ".", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
           RowBox[{"Inverse", "[", 
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"3", ",", "1", ",", "5"}], "]"}], "]"}], "]"}]}], "&"}],
          "/@", 
         RowBox[{"face11", "[", 
          RowBox[{"1", ",", "5", ",", 
           RowBox[{"st", "[", 
            RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}]}], "//", 
        "Chop"}]}], ";", "\n", 
      RowBox[{"B2", "=", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Inverse", "[", 
             RowBox[{"K1", "[", 
              RowBox[{"[", 
               RowBox[{"4", ",", "1", ",", "2"}], "]"}], "]"}], "]"}], " ", 
            ".", " ", 
            RowBox[{"#", "[", 
             RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"4", ",", "1", ",", "2"}], "]"}], "]"}]}], "&"}], "/@", 
          RowBox[{"face7", "[", 
           RowBox[{"1", ",", "2", ",", 
            RowBox[{"st", "[", 
             RowBox[{"[", "11", "]"}], "]"}], ",", "ss1"}], "]"}]}], ")"}], "//",
         "Chop"}]}], ";", "\n", 
      RowBox[{"B4", "=", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Inverse", "[", 
             RowBox[{"K1", "[", 
              RowBox[{"[", 
               RowBox[{"4", ",", "1", ",", "4"}], "]"}], "]"}], "]"}], " ", 
            ".", " ", 
            RowBox[{"#", "[", 
             RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"4", ",", "1", ",", "4"}], "]"}], "]"}]}], "&"}], "/@", 
          RowBox[{"face7", "[", 
           RowBox[{"1", ",", "4", ",", 
            RowBox[{"st", "[", 
             RowBox[{"[", "11", "]"}], "]"}], ",", "ss1"}], "]"}]}], ")"}], "//",
         "Chop"}]}], ";", "\n", 
      RowBox[{"B1", "=", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Inverse", "[", 
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"4", ",", "1", ",", "1"}], "]"}], "]"}], "]"}], " ", 
           ".", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
           RowBox[{"K1", "[", 
            RowBox[{"[", 
             RowBox[{"4", ",", "1", ",", "1"}], "]"}], "]"}]}], "&"}], "/@", 
         RowBox[{"face5", "[", 
          RowBox[{"1", ",", "1", ",", 
           RowBox[{"st", "[", 
            RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}]}], "//", 
        "Chop"}]}], ";", "\n", 
      RowBox[{"B3", "=", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Inverse", "[", 
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"4", ",", "1", ",", "3"}], "]"}], "]"}], "]"}], " ", 
           ".", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
           RowBox[{"K1", "[", 
            RowBox[{"[", 
             RowBox[{"4", ",", "1", ",", "3"}], "]"}], "]"}]}], "&"}], "/@", 
         RowBox[{"face5", "[", 
          RowBox[{"1", ",", "3", ",", 
           RowBox[{"st", "[", 
            RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}]}], "//", 
        "Chop"}]}], ";", "\n", 
      RowBox[{"B5", "=", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Inverse", "[", 
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"4", ",", "1", ",", "5"}], "]"}], "]"}], "]"}], " ", 
           ".", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
           RowBox[{"K1", "[", 
            RowBox[{"[", 
             RowBox[{"4", ",", "1", ",", "5"}], "]"}], "]"}]}], "&"}], "/@", 
         RowBox[{"face5", "[", 
          RowBox[{"1", ",", "5", ",", 
           RowBox[{"st", "[", 
            RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}]}], "//", 
        "Chop"}]}], ";", "\n", 
      RowBox[{"C2", "=", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Inverse", "[", 
             RowBox[{"K1", "[", 
              RowBox[{"[", 
               RowBox[{"4", ",", "2", ",", "2"}], "]"}], "]"}], "]"}], " ", 
            ".", " ", 
            RowBox[{"#", "[", 
             RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"4", ",", "2", ",", "2"}], "]"}], "]"}]}], "&"}], "/@", 
          RowBox[{"face7", "[", 
           RowBox[{"2", ",", "2", ",", 
            RowBox[{"st", "[", 
             RowBox[{"[", "11", "]"}], "]"}], ",", "ss1"}], "]"}]}], ")"}], "//",
         "Chop"}]}], ";", "\n", 
      RowBox[{"C6", "=", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Inverse", "[", 
             RowBox[{"K1", "[", 
              RowBox[{"[", 
               RowBox[{"4", ",", "2", ",", "6"}], "]"}], "]"}], "]"}], " ", 
            ".", " ", 
            RowBox[{"#", "[", 
             RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"4", ",", "2", ",", "6"}], "]"}], "]"}]}], "&"}], "/@", 
          RowBox[{"face7", "[", 
           RowBox[{"2", ",", "6", ",", 
            RowBox[{"st", "[", 
             RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}]}], ")"}], "//",
         "Chop"}]}], ";", "\n", 
      RowBox[{"C1", "=", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Inverse", "[", 
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"4", ",", "2", ",", "1"}], "]"}], "]"}], "]"}], " ", 
           ".", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
           RowBox[{"K1", "[", 
            RowBox[{"[", 
             RowBox[{"4", ",", "2", ",", "1"}], "]"}], "]"}]}], "&"}], "/@", 
         RowBox[{"face5", "[", 
          RowBox[{"2", ",", "1", ",", 
           RowBox[{"st", "[", 
            RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}]}], "//", 
        "Chop"}]}], ";", "\n", 
      RowBox[{"C3", "=", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Inverse", "[", 
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"4", ",", "2", ",", "3"}], "]"}], "]"}], "]"}], " ", 
           ".", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
           RowBox[{"K1", "[", 
            RowBox[{"[", 
             RowBox[{"4", ",", "2", ",", "3"}], "]"}], "]"}]}], "&"}], "/@", 
         RowBox[{"face5", "[", 
          RowBox[{"2", ",", "3", ",", 
           RowBox[{"st", "[", 
            RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}]}], "//", 
        "Chop"}]}], ";", "\n", 
      RowBox[{"C5", "=", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Inverse", "[", 
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"4", ",", "2", ",", "5"}], "]"}], "]"}], "]"}], " ", 
           ".", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
           RowBox[{"K1", "[", 
            RowBox[{"[", 
             RowBox[{"4", ",", "2", ",", "5"}], "]"}], "]"}]}], "&"}], "/@", 
         RowBox[{"face5", "[", 
          RowBox[{"2", ",", "5", ",", 
           RowBox[{"st", "[", 
            RowBox[{"[", "11", "]"}], "]"}], ",", "ss1"}], "]"}]}], "//", 
        "Chop"}]}], ";", "\n", 
      RowBox[{"D2", "=", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"3", ",", "2", ",", "2"}], "]"}], "]"}], " ", ".", " ", 
            RowBox[{"#", "[", 
             RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
            RowBox[{"Inverse", "[", 
             RowBox[{"K1", "[", 
              RowBox[{"[", 
               RowBox[{"3", ",", "2", ",", "2"}], "]"}], "]"}], "]"}]}], 
           "&"}], "/@", 
          RowBox[{"face8", "[", 
           RowBox[{"2", ",", "2", ",", 
            RowBox[{"st", "[", 
             RowBox[{"[", "11", "]"}], "]"}], ",", "ss1"}], "]"}]}], ")"}], "//",
         "Chop"}]}], ";", "\n", 
      RowBox[{"D6", "=", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"3", ",", "2", ",", "6"}], "]"}], "]"}], " ", ".", " ", 
            RowBox[{"#", "[", 
             RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
            RowBox[{"Inverse", "[", 
             RowBox[{"K1", "[", 
              RowBox[{"[", 
               RowBox[{"3", ",", "2", ",", "6"}], "]"}], "]"}], "]"}]}], 
           "&"}], "/@", 
          RowBox[{"face8", "[", 
           RowBox[{"2", ",", "6", ",", 
            RowBox[{"st", "[", 
             RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}]}], ")"}], "//",
         "Chop"}]}], ";", "\n", 
      RowBox[{"D1", "=", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"K1", "[", 
            RowBox[{"[", 
             RowBox[{"3", ",", "2", ",", "1"}], "]"}], "]"}], " ", ".", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
           RowBox[{"Inverse", "[", 
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"3", ",", "2", ",", "1"}], "]"}], "]"}], "]"}]}], "&"}],
          "/@", 
         RowBox[{"face11", "[", 
          RowBox[{"2", ",", "1", ",", 
           RowBox[{"st", "[", 
            RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}]}], "//", 
        "Chop"}]}], ";", "\n", 
      RowBox[{"D3", "=", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"K1", "[", 
            RowBox[{"[", 
             RowBox[{"3", ",", "2", ",", "3"}], "]"}], "]"}], " ", ".", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
           RowBox[{"Inverse", "[", 
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"3", ",", "2", ",", "3"}], "]"}], "]"}], "]"}]}], "&"}],
          "/@", 
         RowBox[{"face11", "[", 
          RowBox[{"2", ",", "3", ",", 
           RowBox[{"st", "[", 
            RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}]}], "//", 
        "Chop"}]}], ";", "\n", 
      RowBox[{"D5", "=", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"K1", "[", 
            RowBox[{"[", 
             RowBox[{"3", ",", "2", ",", "5"}], "]"}], "]"}], " ", ".", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
           RowBox[{"Inverse", "[", 
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"3", ",", "2", ",", "5"}], "]"}], "]"}], "]"}]}], "&"}],
          "/@", 
         RowBox[{"face11", "[", 
          RowBox[{"2", ",", "5", ",", 
           RowBox[{"st", "[", 
            RowBox[{"[", "11", "]"}], "]"}], ",", "ss1"}], "]"}]}], "//", 
        "Chop"}]}], ";", "\n", 
      RowBox[{"E4", "=", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Inverse", "[", 
             RowBox[{"K1", "[", 
              RowBox[{"[", 
               RowBox[{"4", ",", "3", ",", "4"}], "]"}], "]"}], "]"}], " ", 
            ".", " ", 
            RowBox[{"#", "[", 
             RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"4", ",", "3", ",", "4"}], "]"}], "]"}]}], "&"}], "/@", 
          RowBox[{"face7", "[", 
           RowBox[{"3", ",", "4", ",", 
            RowBox[{"st", "[", 
             RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}]}], ")"}], "//",
         "Chop"}]}], ";", "\n", 
      RowBox[{"E6", "=", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Inverse", "[", 
             RowBox[{"K1", "[", 
              RowBox[{"[", 
               RowBox[{"4", ",", "3", ",", "6"}], "]"}], "]"}], "]"}], " ", 
            ".", " ", 
            RowBox[{"#", "[", 
             RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"4", ",", "3", ",", "6"}], "]"}], "]"}]}], "&"}], "/@", 
          RowBox[{"face7", "[", 
           RowBox[{"3", ",", "6", ",", 
            RowBox[{"st", "[", 
             RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}]}], ")"}], "//",
         "Chop"}]}], ";", "\n", 
      RowBox[{"E1", "=", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Inverse", "[", 
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"4", ",", "3", ",", "1"}], "]"}], "]"}], "]"}], " ", 
           ".", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
           RowBox[{"K1", "[", 
            RowBox[{"[", 
             RowBox[{"4", ",", "3", ",", "1"}], "]"}], "]"}]}], "&"}], "/@", 
         RowBox[{"face5", "[", 
          RowBox[{"3", ",", "1", ",", 
           RowBox[{"st", "[", 
            RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}]}], "//", 
        "Chop"}]}], ";", "\n", 
      RowBox[{"E3", "=", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Inverse", "[", 
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"4", ",", "3", ",", "3"}], "]"}], "]"}], "]"}], " ", 
           ".", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
           RowBox[{"K1", "[", 
            RowBox[{"[", 
             RowBox[{"4", ",", "3", ",", "3"}], "]"}], "]"}]}], "&"}], "/@", 
         RowBox[{"face5", "[", 
          RowBox[{"3", ",", "3", ",", 
           RowBox[{"st", "[", 
            RowBox[{"[", "11", "]"}], "]"}], ",", "ss1"}], "]"}]}], "//", 
        "Chop"}]}], ";", "\n", 
      RowBox[{"E5", "=", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Inverse", "[", 
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"4", ",", "3", ",", "5"}], "]"}], "]"}], "]"}], " ", 
           ".", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
           RowBox[{"K1", "[", 
            RowBox[{"[", 
             RowBox[{"4", ",", "3", ",", "5"}], "]"}], "]"}]}], "&"}], "/@", 
         RowBox[{"face5", "[", 
          RowBox[{"3", ",", "5", ",", 
           RowBox[{"st", "[", 
            RowBox[{"[", "11", "]"}], "]"}], ",", "ss1"}], "]"}]}], "//", 
        "Chop"}]}], ";", "\n", 
      RowBox[{"F4", "=", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"3", ",", "3", ",", "4"}], "]"}], "]"}], " ", ".", " ", 
            RowBox[{"#", "[", 
             RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
            RowBox[{"Inverse", "[", 
             RowBox[{"K1", "[", 
              RowBox[{"[", 
               RowBox[{"3", ",", "3", ",", "4"}], "]"}], "]"}], "]"}]}], 
           "&"}], "/@", 
          RowBox[{"face8", "[", 
           RowBox[{"3", ",", "4", ",", 
            RowBox[{"st", "[", 
             RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}]}], ")"}], "//",
         "Chop"}]}], ";", "\n", 
      RowBox[{"F6", "=", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"3", ",", "3", ",", "6"}], "]"}], "]"}], " ", ".", " ", 
            RowBox[{"#", "[", 
             RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
            RowBox[{"Inverse", "[", 
             RowBox[{"K1", "[", 
              RowBox[{"[", 
               RowBox[{"3", ",", "3", ",", "6"}], "]"}], "]"}], "]"}]}], 
           "&"}], "/@", 
          RowBox[{"face8", "[", 
           RowBox[{"3", ",", "6", ",", 
            RowBox[{"st", "[", 
             RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}]}], ")"}], "//",
         "Chop"}]}], ";", "\n", 
      RowBox[{"F1", "=", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"K1", "[", 
            RowBox[{"[", 
             RowBox[{"3", ",", "3", ",", "1"}], "]"}], "]"}], " ", ".", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
           RowBox[{"Inverse", "[", 
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"3", ",", "3", ",", "1"}], "]"}], "]"}], "]"}]}], "&"}],
          "/@", 
         RowBox[{"face11", "[", 
          RowBox[{"3", ",", "1", ",", 
           RowBox[{"st", "[", 
            RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}]}], "//", 
        "Chop"}]}], ";", "\n", 
      RowBox[{"F3", "=", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"K1", "[", 
            RowBox[{"[", 
             RowBox[{"3", ",", "3", ",", "3"}], "]"}], "]"}], " ", ".", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
           RowBox[{"Inverse", "[", 
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"3", ",", "3", ",", "3"}], "]"}], "]"}], "]"}]}], "&"}],
          "/@", 
         RowBox[{"face11", "[", 
          RowBox[{"3", ",", "3", ",", 
           RowBox[{"st", "[", 
            RowBox[{"[", "11", "]"}], "]"}], ",", "ss1"}], "]"}]}], "//", 
        "Chop"}]}], ";", "\n", 
      RowBox[{"F5", "=", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"K1", "[", 
            RowBox[{"[", 
             RowBox[{"3", ",", "3", ",", "5"}], "]"}], "]"}], " ", ".", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
           RowBox[{"Inverse", "[", 
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"3", ",", "3", ",", "5"}], "]"}], "]"}], "]"}]}], "&"}],
          "/@", 
         RowBox[{"face11", "[", 
          RowBox[{"3", ",", "5", ",", 
           RowBox[{"st", "[", 
            RowBox[{"[", "11", "]"}], "]"}], ",", "ss1"}], "]"}]}], "//", 
        "Chop"}]}], ";", "\n", 
      RowBox[{"Te3", "=", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"A1", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "+", 
          RowBox[{"A2", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"A1", "[", 
           RowBox[{"[", "2", "]"}], "]"}], "+", 
          RowBox[{"A3", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"A1", "[", 
           RowBox[{"[", "3", "]"}], "]"}], "+", 
          RowBox[{"A4", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"A1", "[", 
           RowBox[{"[", "4", "]"}], "]"}], "+", 
          RowBox[{"A5", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"A2", "[", 
           RowBox[{"[", "2", "]"}], "]"}], "+", 
          RowBox[{"A3", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"A2", "[", 
           RowBox[{"[", "3", "]"}], "]"}], "+", 
          RowBox[{"A4", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"A2", "[", 
           RowBox[{"[", "4", "]"}], "]"}], "+", 
          RowBox[{"A5", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"A3", "[", 
           RowBox[{"[", "3", "]"}], "]"}], "+", 
          RowBox[{"A4", "[", 
           RowBox[{"[", "3", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"A3", "[", 
           RowBox[{"[", "4", "]"}], "]"}], "+", 
          RowBox[{"A5", "[", 
           RowBox[{"[", "3", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"A5", "[", 
           RowBox[{"[", "4", "]"}], "]"}], "+", 
          RowBox[{"A4", "[", 
           RowBox[{"[", "4", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"B2", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "+", 
          RowBox[{"B1", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"B1", "[", 
           RowBox[{"[", "2", "]"}], "]"}], "+", 
          RowBox[{"B3", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"B1", "[", 
           RowBox[{"[", "3", "]"}], "]"}], "+", 
          RowBox[{"B4", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"B1", "[", 
           RowBox[{"[", "4", "]"}], "]"}], "+", 
          RowBox[{"B5", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"B2", "[", 
           RowBox[{"[", "2", "]"}], "]"}], "+", 
          RowBox[{"B3", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}], ",", "\n", 
         RowBox[{
          RowBox[{"B2", "[", 
           RowBox[{"[", "3", "]"}], "]"}], "+", 
          RowBox[{"B4", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"B2", "[", 
           RowBox[{"[", "4", "]"}], "]"}], "+", 
          RowBox[{"B5", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"B3", "[", 
           RowBox[{"[", "3", "]"}], "]"}], "+", 
          RowBox[{"B4", "[", 
           RowBox[{"[", "3", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"B3", "[", 
           RowBox[{"[", "4", "]"}], "]"}], "+", 
          RowBox[{"B5", "[", 
           RowBox[{"[", "3", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"B5", "[", 
           RowBox[{"[", "4", "]"}], "]"}], "+", 
          RowBox[{"B4", "[", 
           RowBox[{"[", "4", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"C1", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "+", 
          RowBox[{"C2", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"C1", "[", 
           RowBox[{"[", "2", "]"}], "]"}], "+", 
          RowBox[{"C3", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"C1", "[", 
           RowBox[{"[", "3", "]"}], "]"}], "+", 
          RowBox[{"C5", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"C1", "[", 
           RowBox[{"[", "4", "]"}], "]"}], "+", 
          RowBox[{"C6", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"C2", "[", 
           RowBox[{"[", "2", "]"}], "]"}], "+", 
          RowBox[{"C3", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"C2", "[", 
           RowBox[{"[", "3", "]"}], "]"}], "+", 
          RowBox[{"C5", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"C2", "[", 
           RowBox[{"[", "4", "]"}], "]"}], "+", 
          RowBox[{"C6", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"C3", "[", 
           RowBox[{"[", "3", "]"}], "]"}], "+", 
          RowBox[{"C5", "[", 
           RowBox[{"[", "3", "]"}], "]"}]}], ",", "\n", 
         RowBox[{
          RowBox[{"C3", "[", 
           RowBox[{"[", "4", "]"}], "]"}], "+", 
          RowBox[{"C6", "[", 
           RowBox[{"[", "3", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"C5", "[", 
           RowBox[{"[", "4", "]"}], "]"}], "+", 
          RowBox[{"C6", "[", 
           RowBox[{"[", "4", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"D1", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "+", 
          RowBox[{"D2", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"D1", "[", 
           RowBox[{"[", "2", "]"}], "]"}], "+", 
          RowBox[{"D3", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"D1", "[", 
           RowBox[{"[", "3", "]"}], "]"}], "+", 
          RowBox[{"D5", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"D1", "[", 
           RowBox[{"[", "4", "]"}], "]"}], "+", 
          RowBox[{"D6", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"D2", "[", 
           RowBox[{"[", "2", "]"}], "]"}], "+", 
          RowBox[{"D3", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"D2", "[", 
           RowBox[{"[", "3", "]"}], "]"}], "+", 
          RowBox[{"D5", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"D2", "[", 
           RowBox[{"[", "4", "]"}], "]"}], "+", 
          RowBox[{"D6", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"D3", "[", 
           RowBox[{"[", "3", "]"}], "]"}], "+", 
          RowBox[{"D5", "[", 
           RowBox[{"[", "3", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"D3", "[", 
           RowBox[{"[", "4", "]"}], "]"}], "+", 
          RowBox[{"D6", "[", 
           RowBox[{"[", "3", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"D5", "[", 
           RowBox[{"[", "4", "]"}], "]"}], "+", 
          RowBox[{"D6", "[", 
           RowBox[{"[", "4", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"E1", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "+", 
          RowBox[{"E3", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], ",", "\n", 
         RowBox[{
          RowBox[{"E1", "[", 
           RowBox[{"[", "2", "]"}], "]"}], "+", 
          RowBox[{"E4", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"E1", "[", 
           RowBox[{"[", "3", "]"}], "]"}], "+", 
          RowBox[{"E5", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"E1", "[", 
           RowBox[{"[", "4", "]"}], "]"}], "+", 
          RowBox[{"E6", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"F1", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "+", 
          RowBox[{"F3", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"F1", "[", 
           RowBox[{"[", "2", "]"}], "]"}], "+", 
          RowBox[{"F4", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"F1", "[", 
           RowBox[{"[", "3", "]"}], "]"}], "+", 
          RowBox[{"F5", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"F1", "[", 
           RowBox[{"[", "4", "]"}], "]"}], "+", 
          RowBox[{"F6", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}]}], "}"}]}], ";", "\n", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Fold", "[", 
         RowBox[{"And", ",", "True", ",", 
          RowBox[{
           RowBox[{
            RowBox[{"DiagonalMatrixQ", "[", 
             RowBox[{"Chop", "[", "#", "]"}], "]"}], "&"}], "/@", "Te1"}]}], 
         "]"}], ",", "\n", 
        RowBox[{"Fold", "[", 
         RowBox[{"And", ",", "True", ",", 
          RowBox[{
           RowBox[{
            RowBox[{"DiagonalMatrixQ", "[", 
             RowBox[{"Chop", "[", "#", "]"}], "]"}], "&"}], "/@", "Te2"}]}], 
         "]"}], ",", "\n", 
        RowBox[{"Fold", "[", 
         RowBox[{"And", ",", "True", ",", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Chop", "[", "#", "]"}], "==", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"0", ",", "0"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"0", ",", "0"}], "}"}]}], "}"}]}], "&"}], "/@", 
           "Te3"}]}], "]"}]}], "}"}]}]}], "\n", "]"}]}], ";"}]], "Code",
 CellLabel->
  "In[176]:=",ExpressionUUID->"eb64ada2-6989-41ab-acbe-5ab1d9a04e17"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Tests2", "[", "ss1_", "]"}], ":=", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "K1", ",", "st", ",", "Te1", ",", "Te2", ",", "Te3", ",", "A1", ",", 
       "A2", ",", "A3", ",", "A4", ",", "A5", ",", "B1", ",", "B2", ",", "B3",
        ",", "B4", ",", "B5", ",", "C1", ",", "C2", ",", "C3", ",", "C5", ",",
        "C6", ",", "D1", ",", "D2", ",", "D3", ",", "D5", ",", "D6", ",", 
       "E1", ",", "E3", ",", "E4", ",", "E5", ",", "E6", ",", "F1", ",", "F3",
        ",", "F4", ",", "F5", ",", "F6"}], "}"}], ",", "\n", 
     RowBox[{
      RowBox[{"st", "=", 
       RowBox[{"ArrayReshape", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"{", 
             RowBox[{"x", ",", "y", ",", "z", ",", "t"}], "}"}], "-", 
            RowBox[{"{", 
             RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "}"}]}], ",", 
           RowBox[{"{", 
            RowBox[{"x", ",", "0", ",", "2", ",", "2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"y", ",", "0", ",", "2", ",", "2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"z", ",", "0", ",", "2", ",", "2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"t", ",", "0", ",", "2", ",", "2"}], "}"}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"16", ",", "4"}], "}"}]}], "]"}]}], ";", "\n", 
      RowBox[{"K1", "=", 
       RowBox[{"ActionFC", "[", "ss1", "]"}]}], ";", "\n", 
      RowBox[{"A2", "=", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"3", ",", "1", ",", "2"}], "]"}], "]"}], " ", ".", " ", 
            RowBox[{"#", "[", 
             RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
            RowBox[{"Inverse", "[", 
             RowBox[{"K1", "[", 
              RowBox[{"[", 
               RowBox[{"3", ",", "1", ",", "2"}], "]"}], "]"}], "]"}]}], 
           "&"}], "/@", 
          RowBox[{"face8", "[", 
           RowBox[{"1", ",", "2", ",", 
            RowBox[{"st", "[", 
             RowBox[{"[", "11", "]"}], "]"}], ",", "ss1"}], "]"}]}], ")"}], "//",
         "Chop"}]}], ";", "\n", 
      RowBox[{"A4", "=", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"3", ",", "1", ",", "4"}], "]"}], "]"}], " ", ".", " ", 
            RowBox[{"#", "[", 
             RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
            RowBox[{"Inverse", "[", 
             RowBox[{"K1", "[", 
              RowBox[{"[", 
               RowBox[{"3", ",", "1", ",", "4"}], "]"}], "]"}], "]"}]}], 
           "&"}], "/@", 
          RowBox[{"face8", "[", 
           RowBox[{"1", ",", "4", ",", 
            RowBox[{"st", "[", 
             RowBox[{"[", "11", "]"}], "]"}], ",", "ss1"}], "]"}]}], ")"}], "//",
         "Chop"}]}], ";", "\n", 
      RowBox[{"A1", "=", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"K1", "[", 
            RowBox[{"[", 
             RowBox[{"3", ",", "1", ",", "1"}], "]"}], "]"}], " ", ".", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
           RowBox[{"Inverse", "[", 
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"3", ",", "1", ",", "1"}], "]"}], "]"}], "]"}]}], "&"}],
          "/@", 
         RowBox[{"face11", "[", 
          RowBox[{"1", ",", "1", ",", 
           RowBox[{"st", "[", 
            RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}]}], "//", 
        "Chop"}]}], ";", "\n", 
      RowBox[{"A3", "=", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"K1", "[", 
            RowBox[{"[", 
             RowBox[{"3", ",", "1", ",", "3"}], "]"}], "]"}], " ", ".", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
           RowBox[{"Inverse", "[", 
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"3", ",", "1", ",", "3"}], "]"}], "]"}], "]"}]}], "&"}],
          "/@", 
         RowBox[{"face11", "[", 
          RowBox[{"1", ",", "3", ",", 
           RowBox[{"st", "[", 
            RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}]}], "//", 
        "Chop"}]}], ";", "\n", 
      RowBox[{"A5", "=", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"K1", "[", 
            RowBox[{"[", 
             RowBox[{"3", ",", "1", ",", "5"}], "]"}], "]"}], " ", ".", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
           RowBox[{"Inverse", "[", 
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"3", ",", "1", ",", "5"}], "]"}], "]"}], "]"}]}], "&"}],
          "/@", 
         RowBox[{"face11", "[", 
          RowBox[{"1", ",", "5", ",", 
           RowBox[{"st", "[", 
            RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}]}], "//", 
        "Chop"}]}], ";", "\n", 
      RowBox[{"B2", "=", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Inverse", "[", 
             RowBox[{"K1", "[", 
              RowBox[{"[", 
               RowBox[{"4", ",", "1", ",", "2"}], "]"}], "]"}], "]"}], " ", 
            ".", " ", 
            RowBox[{"#", "[", 
             RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"4", ",", "1", ",", "2"}], "]"}], "]"}]}], "&"}], "/@", 
          RowBox[{"face7", "[", 
           RowBox[{"1", ",", "2", ",", 
            RowBox[{"st", "[", 
             RowBox[{"[", "11", "]"}], "]"}], ",", "ss1"}], "]"}]}], ")"}], "//",
         "Chop"}]}], ";", "\n", 
      RowBox[{"B4", "=", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Inverse", "[", 
             RowBox[{"K1", "[", 
              RowBox[{"[", 
               RowBox[{"4", ",", "1", ",", "4"}], "]"}], "]"}], "]"}], " ", 
            ".", " ", 
            RowBox[{"#", "[", 
             RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"4", ",", "1", ",", "4"}], "]"}], "]"}]}], "&"}], "/@", 
          RowBox[{"face7", "[", 
           RowBox[{"1", ",", "4", ",", 
            RowBox[{"st", "[", 
             RowBox[{"[", "11", "]"}], "]"}], ",", "ss1"}], "]"}]}], ")"}], "//",
         "Chop"}]}], ";", "\n", 
      RowBox[{"B1", "=", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Inverse", "[", 
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"4", ",", "1", ",", "1"}], "]"}], "]"}], "]"}], " ", 
           ".", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
           RowBox[{"K1", "[", 
            RowBox[{"[", 
             RowBox[{"4", ",", "1", ",", "1"}], "]"}], "]"}]}], "&"}], "/@", 
         RowBox[{"face5", "[", 
          RowBox[{"1", ",", "1", ",", 
           RowBox[{"st", "[", 
            RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}]}], "//", 
        "Chop"}]}], ";", "\n", 
      RowBox[{"B3", "=", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Inverse", "[", 
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"4", ",", "1", ",", "3"}], "]"}], "]"}], "]"}], " ", 
           ".", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
           RowBox[{"K1", "[", 
            RowBox[{"[", 
             RowBox[{"4", ",", "1", ",", "3"}], "]"}], "]"}]}], "&"}], "/@", 
         RowBox[{"face5", "[", 
          RowBox[{"1", ",", "3", ",", 
           RowBox[{"st", "[", 
            RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}]}], "//", 
        "Chop"}]}], ";", "\n", 
      RowBox[{"B5", "=", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Inverse", "[", 
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"4", ",", "1", ",", "5"}], "]"}], "]"}], "]"}], " ", 
           ".", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
           RowBox[{"K1", "[", 
            RowBox[{"[", 
             RowBox[{"4", ",", "1", ",", "5"}], "]"}], "]"}]}], "&"}], "/@", 
         RowBox[{"face5", "[", 
          RowBox[{"1", ",", "5", ",", 
           RowBox[{"st", "[", 
            RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}]}], "//", 
        "Chop"}]}], ";", "\n", 
      RowBox[{"C2", "=", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Inverse", "[", 
             RowBox[{"K1", "[", 
              RowBox[{"[", 
               RowBox[{"4", ",", "2", ",", "2"}], "]"}], "]"}], "]"}], " ", 
            ".", " ", 
            RowBox[{"#", "[", 
             RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"4", ",", "2", ",", "2"}], "]"}], "]"}]}], "&"}], "/@", 
          RowBox[{"face7", "[", 
           RowBox[{"2", ",", "2", ",", 
            RowBox[{"st", "[", 
             RowBox[{"[", "11", "]"}], "]"}], ",", "ss1"}], "]"}]}], ")"}], "//",
         "Chop"}]}], ";", "\n", 
      RowBox[{"C6", "=", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Inverse", "[", 
             RowBox[{"K1", "[", 
              RowBox[{"[", 
               RowBox[{"4", ",", "2", ",", "6"}], "]"}], "]"}], "]"}], " ", 
            ".", " ", 
            RowBox[{"#", "[", 
             RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"4", ",", "2", ",", "6"}], "]"}], "]"}]}], "&"}], "/@", 
          RowBox[{"face7", "[", 
           RowBox[{"2", ",", "6", ",", 
            RowBox[{"st", "[", 
             RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}]}], ")"}], "//",
         "Chop"}]}], ";", "\n", 
      RowBox[{"C1", "=", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Inverse", "[", 
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"4", ",", "2", ",", "1"}], "]"}], "]"}], "]"}], " ", 
           ".", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
           RowBox[{"K1", "[", 
            RowBox[{"[", 
             RowBox[{"4", ",", "2", ",", "1"}], "]"}], "]"}]}], "&"}], "/@", 
         RowBox[{"face5", "[", 
          RowBox[{"2", ",", "1", ",", 
           RowBox[{"st", "[", 
            RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}]}], "//", 
        "Chop"}]}], ";", "\n", 
      RowBox[{"C3", "=", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Inverse", "[", 
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"4", ",", "2", ",", "3"}], "]"}], "]"}], "]"}], " ", 
           ".", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
           RowBox[{"K1", "[", 
            RowBox[{"[", 
             RowBox[{"4", ",", "2", ",", "3"}], "]"}], "]"}]}], "&"}], "/@", 
         RowBox[{"face5", "[", 
          RowBox[{"2", ",", "3", ",", 
           RowBox[{"st", "[", 
            RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}]}], "//", 
        "Chop"}]}], ";", "\n", 
      RowBox[{"C5", "=", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Inverse", "[", 
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"4", ",", "2", ",", "5"}], "]"}], "]"}], "]"}], " ", 
           ".", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
           RowBox[{"K1", "[", 
            RowBox[{"[", 
             RowBox[{"4", ",", "2", ",", "5"}], "]"}], "]"}]}], "&"}], "/@", 
         RowBox[{"face5", "[", 
          RowBox[{"2", ",", "5", ",", 
           RowBox[{"st", "[", 
            RowBox[{"[", "11", "]"}], "]"}], ",", "ss1"}], "]"}]}], "//", 
        "Chop"}]}], ";", "\n", 
      RowBox[{"D2", "=", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"3", ",", "2", ",", "2"}], "]"}], "]"}], " ", ".", " ", 
            RowBox[{"#", "[", 
             RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
            RowBox[{"Inverse", "[", 
             RowBox[{"K1", "[", 
              RowBox[{"[", 
               RowBox[{"3", ",", "2", ",", "2"}], "]"}], "]"}], "]"}]}], 
           "&"}], "/@", 
          RowBox[{"face8", "[", 
           RowBox[{"2", ",", "2", ",", 
            RowBox[{"st", "[", 
             RowBox[{"[", "11", "]"}], "]"}], ",", "ss1"}], "]"}]}], ")"}], "//",
         "Chop"}]}], ";", "\n", 
      RowBox[{"D6", "=", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"3", ",", "2", ",", "6"}], "]"}], "]"}], " ", ".", " ", 
            RowBox[{"#", "[", 
             RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
            RowBox[{"Inverse", "[", 
             RowBox[{"K1", "[", 
              RowBox[{"[", 
               RowBox[{"3", ",", "2", ",", "6"}], "]"}], "]"}], "]"}]}], 
           "&"}], "/@", 
          RowBox[{"face8", "[", 
           RowBox[{"2", ",", "6", ",", 
            RowBox[{"st", "[", 
             RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}]}], ")"}], "//",
         "Chop"}]}], ";", "\n", 
      RowBox[{"D1", "=", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"K1", "[", 
            RowBox[{"[", 
             RowBox[{"3", ",", "2", ",", "1"}], "]"}], "]"}], " ", ".", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
           RowBox[{"Inverse", "[", 
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"3", ",", "2", ",", "1"}], "]"}], "]"}], "]"}]}], "&"}],
          "/@", 
         RowBox[{"face11", "[", 
          RowBox[{"2", ",", "1", ",", 
           RowBox[{"st", "[", 
            RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}]}], "//", 
        "Chop"}]}], ";", "\n", 
      RowBox[{"D3", "=", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"K1", "[", 
            RowBox[{"[", 
             RowBox[{"3", ",", "2", ",", "3"}], "]"}], "]"}], " ", ".", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
           RowBox[{"Inverse", "[", 
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"3", ",", "2", ",", "3"}], "]"}], "]"}], "]"}]}], "&"}],
          "/@", 
         RowBox[{"face11", "[", 
          RowBox[{"2", ",", "3", ",", 
           RowBox[{"st", "[", 
            RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}]}], "//", 
        "Chop"}]}], ";", "\n", 
      RowBox[{"D5", "=", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"K1", "[", 
            RowBox[{"[", 
             RowBox[{"3", ",", "2", ",", "5"}], "]"}], "]"}], " ", ".", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
           RowBox[{"Inverse", "[", 
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"3", ",", "2", ",", "5"}], "]"}], "]"}], "]"}]}], "&"}],
          "/@", 
         RowBox[{"face11", "[", 
          RowBox[{"2", ",", "5", ",", 
           RowBox[{"st", "[", 
            RowBox[{"[", "11", "]"}], "]"}], ",", "ss1"}], "]"}]}], "//", 
        "Chop"}]}], ";", "\n", 
      RowBox[{"E4", "=", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Inverse", "[", 
             RowBox[{"K1", "[", 
              RowBox[{"[", 
               RowBox[{"4", ",", "3", ",", "4"}], "]"}], "]"}], "]"}], " ", 
            ".", " ", 
            RowBox[{"#", "[", 
             RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"4", ",", "3", ",", "4"}], "]"}], "]"}]}], "&"}], "/@", 
          RowBox[{"face7", "[", 
           RowBox[{"3", ",", "4", ",", 
            RowBox[{"st", "[", 
             RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}]}], ")"}], "//",
         "Chop"}]}], ";", "\n", 
      RowBox[{"E6", "=", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Inverse", "[", 
             RowBox[{"K1", "[", 
              RowBox[{"[", 
               RowBox[{"4", ",", "3", ",", "6"}], "]"}], "]"}], "]"}], " ", 
            ".", " ", 
            RowBox[{"#", "[", 
             RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"4", ",", "3", ",", "6"}], "]"}], "]"}]}], "&"}], "/@", 
          RowBox[{"face7", "[", 
           RowBox[{"3", ",", "6", ",", 
            RowBox[{"st", "[", 
             RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}]}], ")"}], "//",
         "Chop"}]}], ";", "\n", 
      RowBox[{"E1", "=", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Inverse", "[", 
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"4", ",", "3", ",", "1"}], "]"}], "]"}], "]"}], " ", 
           ".", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
           RowBox[{"K1", "[", 
            RowBox[{"[", 
             RowBox[{"4", ",", "3", ",", "1"}], "]"}], "]"}]}], "&"}], "/@", 
         RowBox[{"face5", "[", 
          RowBox[{"3", ",", "1", ",", 
           RowBox[{"st", "[", 
            RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}]}], "//", 
        "Chop"}]}], ";", "\n", 
      RowBox[{"E3", "=", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Inverse", "[", 
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"4", ",", "3", ",", "3"}], "]"}], "]"}], "]"}], " ", 
           ".", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
           RowBox[{"K1", "[", 
            RowBox[{"[", 
             RowBox[{"4", ",", "3", ",", "3"}], "]"}], "]"}]}], "&"}], "/@", 
         RowBox[{"face5", "[", 
          RowBox[{"3", ",", "3", ",", 
           RowBox[{"st", "[", 
            RowBox[{"[", "11", "]"}], "]"}], ",", "ss1"}], "]"}]}], "//", 
        "Chop"}]}], ";", "\n", 
      RowBox[{"E5", "=", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Inverse", "[", 
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"4", ",", "3", ",", "5"}], "]"}], "]"}], "]"}], " ", 
           ".", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
           RowBox[{"K1", "[", 
            RowBox[{"[", 
             RowBox[{"4", ",", "3", ",", "5"}], "]"}], "]"}]}], "&"}], "/@", 
         RowBox[{"face5", "[", 
          RowBox[{"3", ",", "5", ",", 
           RowBox[{"st", "[", 
            RowBox[{"[", "11", "]"}], "]"}], ",", "ss1"}], "]"}]}], "//", 
        "Chop"}]}], ";", "\n", 
      RowBox[{"F4", "=", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"3", ",", "3", ",", "4"}], "]"}], "]"}], " ", ".", " ", 
            RowBox[{"#", "[", 
             RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
            RowBox[{"Inverse", "[", 
             RowBox[{"K1", "[", 
              RowBox[{"[", 
               RowBox[{"3", ",", "3", ",", "4"}], "]"}], "]"}], "]"}]}], 
           "&"}], "/@", 
          RowBox[{"face8", "[", 
           RowBox[{"3", ",", "4", ",", 
            RowBox[{"st", "[", 
             RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}]}], ")"}], "//",
         "Chop"}]}], ";", "\n", 
      RowBox[{"F6", "=", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"3", ",", "3", ",", "6"}], "]"}], "]"}], " ", ".", " ", 
            RowBox[{"#", "[", 
             RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
            RowBox[{"Inverse", "[", 
             RowBox[{"K1", "[", 
              RowBox[{"[", 
               RowBox[{"3", ",", "3", ",", "6"}], "]"}], "]"}], "]"}]}], 
           "&"}], "/@", 
          RowBox[{"face8", "[", 
           RowBox[{"3", ",", "6", ",", 
            RowBox[{"st", "[", 
             RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}]}], ")"}], "//",
         "Chop"}]}], ";", "\n", 
      RowBox[{"F1", "=", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"K1", "[", 
            RowBox[{"[", 
             RowBox[{"3", ",", "3", ",", "1"}], "]"}], "]"}], " ", ".", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
           RowBox[{"Inverse", "[", 
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"3", ",", "3", ",", "1"}], "]"}], "]"}], "]"}]}], "&"}],
          "/@", 
         RowBox[{"face11", "[", 
          RowBox[{"3", ",", "1", ",", 
           RowBox[{"st", "[", 
            RowBox[{"[", "6", "]"}], "]"}], ",", "ss1"}], "]"}]}], "//", 
        "Chop"}]}], ";", "\n", 
      RowBox[{"F3", "=", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"K1", "[", 
            RowBox[{"[", 
             RowBox[{"3", ",", "3", ",", "3"}], "]"}], "]"}], " ", ".", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
           RowBox[{"Inverse", "[", 
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"3", ",", "3", ",", "3"}], "]"}], "]"}], "]"}]}], "&"}],
          "/@", 
         RowBox[{"face11", "[", 
          RowBox[{"3", ",", "3", ",", 
           RowBox[{"st", "[", 
            RowBox[{"[", "11", "]"}], "]"}], ",", "ss1"}], "]"}]}], "//", 
        "Chop"}]}], ";", "\n", 
      RowBox[{"F5", "=", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"K1", "[", 
            RowBox[{"[", 
             RowBox[{"3", ",", "3", ",", "5"}], "]"}], "]"}], " ", ".", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], " ", ".", " ", 
           RowBox[{"Inverse", "[", 
            RowBox[{"K1", "[", 
             RowBox[{"[", 
              RowBox[{"3", ",", "3", ",", "5"}], "]"}], "]"}], "]"}]}], "&"}],
          "/@", 
         RowBox[{"face11", "[", 
          RowBox[{"3", ",", "5", ",", 
           RowBox[{"st", "[", 
            RowBox[{"[", "11", "]"}], "]"}], ",", "ss1"}], "]"}]}], "//", 
        "Chop"}]}], ";", "\n", 
      RowBox[{"Te1", "=", 
       RowBox[{"{", 
        RowBox[{
        "A1", ",", "A2", ",", "A3", ",", "A4", ",", "A5", ",", "B1", ",", 
         "B2", ",", "B3", ",", "B4", ",", "B5", ",", "C1", ",", "C2", ",", 
         "C3", ",", "C5", ",", "C6", ",", "D1", ",", "D2", ",", "D3", ",", 
         "D5", ",", "D6", ",", "E1", ",", "E3", ",", "E4", ",", "E5", ",", 
         "E6", ",", "F1", ",", "F3", ",", "F4", ",", "F5", ",", "F6"}], 
        "}"}]}], ";", "\n", 
      RowBox[{"Te2", "=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Sum", "[", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"LeviCivitaTensor", "[", "4", "]"}], "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "j", ",", "k", ",", "l"}], "]"}], "]"}], 
              "*", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"\[Eta]", " ", ".", " ", 
                 RowBox[{"bivechalfto1", "[", 
                  RowBox[{
                   RowBox[{"Te1", "[", 
                    RowBox[{"[", "x", "]"}], "]"}], "[", 
                   RowBox[{"[", 
                    RowBox[{"#", "[", 
                    RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "]"}]}], 
                ")"}], "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "j"}], "]"}], "]"}], "*", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"\[Eta]", " ", ".", " ", 
                 RowBox[{"bivechalfto1", "[", 
                  RowBox[{
                   RowBox[{"Te1", "[", 
                    RowBox[{"[", "x", "]"}], "]"}], "[", 
                   RowBox[{"[", 
                    RowBox[{"#", "[", 
                    RowBox[{"[", "2", "]"}], "]"}], "]"}], "]"}], "]"}]}], 
                ")"}], "[", 
               RowBox[{"[", 
                RowBox[{"k", ",", "l"}], "]"}], "]"}]}], ",", 
             RowBox[{"{", 
              RowBox[{"i", ",", "1", ",", "4"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"j", ",", "1", ",", "4"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"k", ",", "1", ",", "4"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"l", ",", "1", ",", "4"}], "}"}]}], "]"}], "&"}], "/@", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"1", ",", "2"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "3"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "4"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"2", ",", "3"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"2", ",", "4"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"3", ",", "4"}], "}"}]}], "}"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", "1", ",", "30"}], "}"}]}], "]"}]}], ";", "\n", 
      RowBox[{"Te2", "//", "Chop"}]}]}], "\n", "]"}]}], ";"}]], "Code",
 CellLabel->
  "In[177]:=",ExpressionUUID->"fc3f707b-4dc2-4afb-bcda-fa93ba45df40"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Saddle points", "Subtitle",
 CellChangeTimes->{{3.8654055294806604`*^9, 
  3.8654055326208396`*^9}},ExpressionUUID->"7a1406bb-8c7d-406b-9201-\
049fee89c70e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"There", " ", "are", " ", "112", " ", "saddles"}], ",", " ", 
    RowBox[{
    "some", " ", "of", " ", "them", " ", "have", " ", "positive", " ", "real",
      " ", "part", " ", "of", " ", "the", " ", "action"}]}], "*)"}], "\n", 
  RowBox[{
   RowBox[{"pks", "=", 
    RowBox[{"ArrayReshape", "[", 
     RowBox[{"Points", ",", 
      RowBox[{"{", 
       RowBox[{"112", ",", "248"}], "}"}]}], "]"}]}], ";"}]}]], "Code",
 CellChangeTimes->{{3.8654055900758743`*^9, 3.865405634741886*^9}},
 CellLabel->
  "In[178]:=",ExpressionUUID->"399b8eb7-7798-40e5-bc71-9fbb6237d852"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Closure", " ", "condition"}], "*)"}], 
  RowBox[{"(*", 
   RowBox[{"Parallel", " ", "condition"}], "*)"}], "\n", 
  RowBox[{"ParallelMap", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Fold", "[", 
      RowBox[{"And", ",", "True", ",", 
       RowBox[{"Testss", "[", "#", "]"}]}], "]"}], "&"}], ",", "pks"}], 
   "]"}]}]], "Code",
 CellChangeTimes->{{3.865405558198634*^9, 3.8654055665178657`*^9}, {
   3.8654059981802006`*^9, 3.8654060079582005`*^9}, 3.865406139001958*^9},
 CellLabel->
  "In[179]:=",ExpressionUUID->"541d63ef-4b3e-4d74-8246-4c5defa9a2ae"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", 
   ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", 
   "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", 
   ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", 
   "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", 
   ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", 
   "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", 
   ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", 
   "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", 
   ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", 
   "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", 
   ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", 
   "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", 
   ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", 
   "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", 
   ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", 
   "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", 
   ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", 
   "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", 
   ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", 
   "True", ",", "True"}], "}"}]], "Output",
 CellChangeTimes->{3.8654059780073805`*^9, 3.865406480099661*^9},
 CellLabel->
  "Out[179]=",ExpressionUUID->"d9090d01-f4f1-49cc-945a-b5838f08bac7"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"std1", "=", 
   RowBox[{"Tests2", "[", 
    RowBox[{"ConstantArray", "[", 
     RowBox[{"0", ",", "248"}], "]"}], "]"}]}], ";"}]], "Code",
 CellLabel->
  "In[180]:=",ExpressionUUID->"68c4cdf2-781e-4d26-95aa-3b8d1f83b704"],

Cell[BoxData[
 RowBox[{
  RowBox[{"pss", "=", 
   RowBox[{"ParallelMap", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Tests2", "[", "#", "]"}], "&"}], ",", "pks"}], "]"}]}], 
  ";"}]], "Code",
 CellLabel->
  "In[181]:=",ExpressionUUID->"d0fd2549-286e-4715-81e3-339ee2e07edc"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"If", " ", "co"}], "-", 
    RowBox[{"normal", " ", "exist"}]}], "*)"}], "\n", 
  RowBox[{
   RowBox[{
    RowBox[{"#", "==", "std1"}], "&"}], "/@", "pss"}]}]], "Code",
 CellChangeTimes->{{3.8654060340882006`*^9, 3.865406035598201*^9}, {
  3.8654061353897486`*^9, 3.8654061673758144`*^9}},
 CellLabel->
  "In[182]:=",ExpressionUUID->"9d82d481-ec2a-435d-98ea-8f3ed54854c3"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", 
   "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", 
   "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", 
   "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", 
   "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", 
   "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", 
   "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", 
   "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", 
   "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", 
   "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", 
   "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", 
   "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", 
   "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", 
   "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", 
   "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", 
   "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", 
   "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", 
   "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", 
   "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", 
   "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", 
   "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", 
   "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", 
   "False", ",", "False"}], "}"}]], "Output",
 CellChangeTimes->{3.865406090551198*^9, 3.8654065900906615`*^9},
 CellLabel->
  "Out[182]=",ExpressionUUID->"f141ec9a-595e-4902-8a8f-1b7ab54421bc"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Select the contributing saddles", "Subtitle",
 CellChangeTimes->{{3.865406196064063*^9, 
  3.865406206483879*^9}},ExpressionUUID->"0dfedc06-5cd3-41d8-9b2b-\
f0723ca03ee3"],

Cell[BoxData[
 RowBox[{
  RowBox[{"pks", "=", 
   RowBox[{"ArrayReshape", "[", 
    RowBox[{"Points", ",", 
     RowBox[{"{", 
      RowBox[{"112", ",", "248"}], "}"}]}], "]"}]}], ";"}]], "Code",
 CellChangeTimes->{{3.8654055792982073`*^9, 3.865405585365631*^9}, {
  3.8654060114582005`*^9, 3.8654060324182005`*^9}},
 CellLabel->
  "In[183]:=",ExpressionUUID->"40e93770-8021-4ad4-9338-10f360c4edcc"],

Cell[BoxData[
 RowBox[{
  RowBox[{"psyc", "=", 
   RowBox[{"Fold", "[", 
    RowBox[{"Join", ",", 
     RowBox[{"{", "}"}], ",", "pstss"}], "]"}]}], ";"}]], "Code",
 CellLabel->
  "In[184]:=",ExpressionUUID->"75ecb532-2313-4f6a-aace-4217a4d21d79"],

Cell[BoxData[
 RowBox[{
  RowBox[{"AKPP", "=", 
   RowBox[{"Fold", "[", 
    RowBox[{"Join", ",", 
     RowBox[{"{", "}"}], ",", "AKP"}], "]"}]}], ";"}]], "Code",
 CellLabel->
  "In[185]:=",ExpressionUUID->"95399412-00bd-43b8-ab35-559279e9a378"],

Cell[BoxData[
 RowBox[{
  RowBox[{"ssss", "[", "v_", "]"}], ":=", 
  RowBox[{"Sort", "[", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"P3", "[", 
         RowBox[{
          RowBox[{"Points", "[", 
           RowBox[{"[", 
            RowBox[{"v", ",", "x"}], "]"}], "]"}], ",", "\[Gamma]"}], "]"}], 
        ",", 
        RowBox[{"pstss", "[", 
         RowBox[{"[", 
          RowBox[{"v", ",", "x"}], "]"}], "]"}], ",", 
        RowBox[{"AKP", "[", 
         RowBox[{"[", 
          RowBox[{"v", ",", "x"}], "]"}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", "1", ",", 
        RowBox[{"Length", "[", 
         RowBox[{"AKP", "[", 
          RowBox[{"[", "v", "]"}], "]"}], "]"}]}], "}"}]}], "]"}], ",", 
    RowBox[{
     RowBox[{
      RowBox[{"#1", "[", 
       RowBox[{"[", "3", "]"}], "]"}], "<", 
      RowBox[{"#2", "[", 
       RowBox[{"[", "3", "]"}], "]"}]}], "&"}]}], "]"}]}]], "Code",
 CellLabel->
  "In[186]:=",ExpressionUUID->"1fc74688-bf8f-4499-8cc2-4ae9b2383176"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"AK", "=", 
    RowBox[{"Sort", "[", 
     RowBox[{
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"P3", "[", 
           RowBox[{
            RowBox[{"pks", "[", 
             RowBox[{"[", "x", "]"}], "]"}], ",", "\[Gamma]"}], "]"}], ",", 
          RowBox[{"psyc", "[", 
           RowBox[{"[", "x", "]"}], "]"}], ",", 
          RowBox[{"pks", "[", 
           RowBox[{"[", "x", "]"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "1", ",", 
          RowBox[{"Length", "[", "pks", "]"}]}], "}"}]}], "]"}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"Re", "[", 
         RowBox[{"#1", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "]"}], "<", 
        RowBox[{"Re", "[", 
         RowBox[{"#2", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "&"}]}], "]"}]}], ";"}], 
  "\n"}]], "Code",
 CellLabel->
  "In[187]:=",ExpressionUUID->"988e4506-fc94-4b30-8bba-d77077ace683"],

Cell[BoxData[
 RowBox[{
  RowBox[{"AKSS", "=", 
   RowBox[{"Select", "[", 
    RowBox[{"AK", ",", 
     RowBox[{
      RowBox[{
       RowBox[{"Re", "[", 
        RowBox[{"#", "[", 
         RowBox[{"[", "1", "]"}], "]"}], "]"}], "<", "0"}], "&"}]}], "]"}]}], 
  ";"}]], "Code",
 CellLabel->
  "In[188]:=",ExpressionUUID->"9a4a8615-4514-4de8-a2f0-9f4147d24bae"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "There", " ", "are", " ", "68", " ", "saddle", " ", "points", " ", 
    "having", " ", "position", " ", "real", " ", "part", " ", "of", " ", 
    "the", " ", "action"}], "*)"}], "\n", 
  RowBox[{"Length", "[", "AKSS", "]"}]}]], "Code",
 CellChangeTimes->{{3.865406366895115*^9, 3.8654063935501633`*^9}},
 CellLabel->
  "In[189]:=",ExpressionUUID->"5387def8-2b8f-47a3-bf1e-f4e359810706"],

Cell[BoxData["68"], "Output",
 CellChangeTimes->{3.865406185804061*^9, 3.8654065903256645`*^9},
 CellLabel->
  "Out[189]=",ExpressionUUID->"46d6e981-0cb5-4e10-be91-c116cf4c082b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"Each", " ", "saddle", " ", 
     RowBox[{"point", "'"}], "s", " ", "action"}], ",", " ", 
    RowBox[{"distance", " ", "to", " ", "the", " ", "origin", " ", "point"}], 
    ",", " ", 
    RowBox[{"number", " ", "of", " ", "sampled", " ", "points"}]}], " ", 
   "*)"}], "\n", 
  RowBox[{"AKSS", "[", 
   RowBox[{"[", 
    RowBox[{";;", ",", 
     RowBox[{"1", ";;", "2"}]}], "]"}], "]"}]}]], "Code",
 CellChangeTimes->{{3.8654063081310997`*^9, 3.8654063585704317`*^9}},
 CellLabel->
  "In[190]:=",ExpressionUUID->"95a841dd-c994-4ce8-a843-667eef21d304"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "53.81011108482366`"}], "+", 
      RowBox[{"6928.834978567535`", " ", "\[ImaginaryI]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"12.563893873548057`", ",", "0"}], "}"}], ",", "1"}], "}"}]}],
     "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "53.81011108482403`"}], "+", 
      RowBox[{"3803.4172704030466`", " ", "\[ImaginaryI]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"16.990848989012573`", ",", "0"}], "}"}], ",", "1"}], "}"}]}],
     "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "53.81011108482386`"}], "+", 
      RowBox[{"3803.417270403046`", " ", "\[ImaginaryI]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"17.321096261647273`", ",", "0"}], "}"}], ",", "1"}], "}"}]}],
     "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "53.780641043111814`"}], "+", 
      RowBox[{"6928.9355999748195`", " ", "\[ImaginaryI]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"12.675494586136695`", ",", "0"}], "}"}], ",", "1"}], "}"}]}],
     "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "53.780641043111444`"}], "+", 
      RowBox[{"6928.935599974819`", " ", "\[ImaginaryI]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"13.173482345101009`", ",", "0"}], "}"}], ",", "5"}], "}"}]}],
     "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "46.767478142439124`"}], "+", 
      RowBox[{"3797.671993205282`", " ", "\[ImaginaryI]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"14.806405536497024`", ",", "0"}], "}"}], ",", "2"}], "}"}]}],
     "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "45.57973440436146`"}], "+", 
      RowBox[{"3795.4317623372817`", " ", "\[ImaginaryI]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"12.950562715119215`", ",", "0"}], "}"}], ",", "1"}], "}"}]}],
     "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "30.277250666473506`"}], "+", 
      RowBox[{"3795.3297976903955`", " ", "\[ImaginaryI]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"13.658641485492655`", ",", "0"}], "}"}], ",", "1"}], "}"}]}],
     "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "4.430859163954352`"}], "+", 
      RowBox[{"7163.802419824913`", " ", "\[ImaginaryI]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"19.15458908410728`", ",", "0"}], "}"}], ",", "3"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "4.430859163954011`"}], "+", 
      RowBox[{"3795.1743021782104`", " ", "\[ImaginaryI]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"4.354517482017177`", ",", "0"}], "}"}], ",", "4"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "4.430859163953528`"}], "+", 
      RowBox[{"7163.802419824914`", " ", "\[ImaginaryI]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"19.458266369699516`", ",", "0"}], "}"}], ",", "3"}], "}"}]}],
     "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "4.430859163953187`"}], "+", 
      RowBox[{"7163.802419824911`", " ", "\[ImaginaryI]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"18.750534311165747`", ",", "0"}], "}"}], ",", "1"}], "}"}]}],
     "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "4.430859163953102`"}], "+", 
      RowBox[{"7163.802419824913`", " ", "\[ImaginaryI]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"19.060650148601525`", ",", "0"}], "}"}], ",", "1"}], "}"}]}],
     "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "4.430859163952931`"}], "+", 
      RowBox[{"3795.17430217821`", " ", "\[ImaginaryI]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"2.6829014821740707`", ",", "0"}], "}"}], ",", "2"}], "}"}]}],
     "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "4.430859163952647`"}], "+", 
      RowBox[{"3795.174302178211`", " ", "\[ImaginaryI]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"4.418971048910643`", ",", "0"}], "}"}], ",", "4"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "4.302256258470152`"}], "+", 
      RowBox[{"3795.109687926861`", " ", "\[ImaginaryI]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"4.234324615651586`", ",", "0"}], "}"}], ",", "10"}], "}"}]}],
     "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "4.3022562584700665`"}], "+", 
      RowBox[{"3795.1096879268603`", " ", "\[ImaginaryI]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"2.505760837210618`", ",", "0"}], "}"}], ",", "42"}], "}"}]}],
     "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "4.302256258470095`"}], "+", 
      RowBox[{"7163.867034076266`", " ", "\[ImaginaryI]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"19.23354953201409`", ",", "0"}], "}"}], ",", "5"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "4.302256258469768`"}], "+", 
      RowBox[{"7163.867034076265`", " ", "\[ImaginaryI]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"18.855747217743836`", ",", "0"}], "}"}], ",", "2"}], "}"}]}],
     "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "4.302256258469541`"}], "+", 
      RowBox[{"7163.867034076265`", " ", "\[ImaginaryI]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"18.92691733125727`", ",", "0"}], "}"}], ",", "6"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "4.302256258469356`"}], "+", 
      RowBox[{"3795.10968792686`", " ", "\[ImaginaryI]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"4.300142959441724`", ",", "0"}], "}"}], ",", "40"}], "}"}]}],
     "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "2.1506097731248417`"}], "+", 
      RowBox[{"3795.387161457406`", " ", "\[ImaginaryI]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"2.0256531811615166`", ",", "0"}], "}"}], ",", "23"}], 
      "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "2.1506097731244935`"}], "+", 
      RowBox[{"3795.3871614574055`", " ", "\[ImaginaryI]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"5.275020001097012`", ",", "0"}], "}"}], ",", "1"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "2.1506097731243514`"}], "+", 
      RowBox[{"3795.3871614574055`", " ", "\[ImaginaryI]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"4.021344889562463`", ",", "0"}], "}"}], ",", "17"}], "}"}]}],
     "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "2.1506097731242093`"}], "+", 
      RowBox[{"7163.589560545718`", " ", "\[ImaginaryI]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"18.627137230686763`", ",", "0"}], "}"}], ",", "7"}], "}"}]}],
     "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "2.150609773124117`"}], "+", 
      RowBox[{"7163.589560545718`", " ", "\[ImaginaryI]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"17.941041088478876`", ",", "0"}], "}"}], ",", "12"}], 
      "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "2.150609773124039`"}], "+", 
      RowBox[{"7163.589560545718`", " ", "\[ImaginaryI]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"18.257871444523833`", ",", "0"}], "}"}], ",", "8"}], "}"}]}],
     "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "2.1506097731239677`"}], "+", 
      RowBox[{"3795.387161457406`", " ", "\[ImaginaryI]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"3.9696211533990646`", ",", "0"}], "}"}], ",", "12"}], 
      "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "2.148025887265945`"}], "+", 
      RowBox[{"3795.3335554944415`", " ", "\[ImaginaryI]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"3.9720348946147825`", ",", "0"}], "}"}], ",", "7"}], "}"}]}],
     "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "2.1480258872658027`"}], "+", 
      RowBox[{"7163.643166508683`", " ", "\[ImaginaryI]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"17.9603546055494`", ",", "0"}], "}"}], ",", "18"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "2.1480258872658062`"}], "+", 
      RowBox[{"3795.3335554944424`", " ", "\[ImaginaryI]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"4.0100979503865`", ",", "0"}], "}"}], ",", "53"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "2.1480258872658027`"}], "+", 
      RowBox[{"7163.643166508682`", " ", "\[ImaginaryI]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"18.3857723540934`", ",", "0"}], "}"}], ",", "12"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "2.148025887265746`"}], "+", 
      RowBox[{"3795.333555494441`", " ", "\[ImaginaryI]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"2.0763857283574394`", ",", "0"}], "}"}], ",", "57"}], 
      "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "2.1480258872655824`"}], "+", 
      RowBox[{"3795.3335554944415`", " ", "\[ImaginaryI]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"5.248482550490706`", ",", "0"}], "}"}], ",", "4"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "2.1480258872653053`"}], "+", 
      RowBox[{"7163.643166508682`", " ", "\[ImaginaryI]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"18.28199228883549`", ",", "0"}], "}"}], ",", "7"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "2.1480258872653053`"}], "+", 
      RowBox[{"7163.643166508684`", " ", "\[ImaginaryI]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"18.70009437271659`", ",", "0"}], "}"}], ",", "5"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "0.008814053426622337`"}], "+", 
      RowBox[{"3795.1285567614677`", " ", "\[ImaginaryI]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"4.427411924074359`", ",", "0"}], "}"}], ",", "2"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "0.008814053426521085`"}], "+", 
      RowBox[{"7163.848165241658`", " ", "\[ImaginaryI]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"18.735434907569125`", ",", "0"}], "}"}], ",", "116"}], 
      "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "0.008814053426363877`"}], "+", 
      RowBox[{"7163.848165241658`", " ", "\[ImaginaryI]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"18.348337022281335`", ",", "0"}], "}"}], ",", "594"}], 
      "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "0.008814053426321244`"}], "+", 
      RowBox[{"3795.128556761467`", " ", "\[ImaginaryI]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"4.297365344021891`", ",", "0"}], "}"}], ",", "581"}], 
      "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "0.008814053426229762`"}], "+", 
      RowBox[{"3795.1285567614677`", " ", "\[ImaginaryI]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"5.523188363684512`", ",", "0"}], "}"}], ",", "280"}], 
      "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "0.00881405342592334`"}], "+", 
      RowBox[{"7163.848165241657`", " ", "\[ImaginaryI]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"19.053068793353432`", ",", "0"}], "}"}], ",", "1"}], "}"}]}],
     "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "0.008305001115767041`"}], "+", 
      RowBox[{"3795.1291660856496`", " ", "\[ImaginaryI]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"2.749304631473315`", ",", "0"}], "}"}], ",", "1"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "0.008305001115106236`"}], "+", 
      RowBox[{"7163.847555917477`", " ", "\[ImaginaryI]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"18.351618105868965`", ",", "0"}], "}"}], ",", "165"}], 
      "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "0.00830500111510446`"}], "+", 
      RowBox[{"3795.1291660856496`", " ", "\[ImaginaryI]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"4.417826398494328`", ",", "0"}], "}"}], ",", "1"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "0.00830500111490906`"}], "+", 
      RowBox[{"3795.129166085649`", " ", "\[ImaginaryI]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"4.287523463938237`", ",", "0"}], "}"}], ",", "1024"}], 
      "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "0.008305001114459643`"}], "+", 
      RowBox[{"7163.847555917475`", " ", "\[ImaginaryI]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"18.750084059792144`", ",", "0"}], "}"}], ",", "101"}], 
      "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "0.008305001114143451`"}], "+", 
      RowBox[{"7163.847555917476`", " ", "\[ImaginaryI]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"18.675656000748354`", ",", "0"}], "}"}], ",", "1"}], "}"}]}],
     "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "0.0028365372128362765`"}], "+", 
      RowBox[{"7163.751583996666`", " ", "\[ImaginaryI]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"19.169209384604745`", ",", "0"}], "}"}], ",", "777"}], 
      "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "0.0028365372122927113`"}], "+", 
      RowBox[{"7163.751583996666`", " ", "\[ImaginaryI]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"18.88387363211622`", ",", "0"}], "}"}], ",", "2"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "0.0028365372122092225`"}], "+", 
      RowBox[{"3795.2251380064577`", " ", "\[ImaginaryI]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"3.4751235093402166`", ",", "0"}], "}"}], ",", "592"}], 
      "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "0.0028365372118601684`"}], "+", 
      RowBox[{"3795.2251380064577`", " ", "\[ImaginaryI]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0.22023419195619023`", ",", "0"}], "}"}], ",", "517"}], 
      "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "0.0026151856194545076`"}], "+", 
      RowBox[{"7163.7513333959005`", " ", "\[ImaginaryI]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"18.894607182175424`", ",", "0"}], "}"}], ",", "2"}], "}"}]}],
     "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "0.0026151856186729106`"}], "+", 
      RowBox[{"3795.225388607224`", " ", "\[ImaginaryI]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"3.467100205543302`", ",", "0"}], "}"}], ",", "1078"}], 
      "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "0.002615185618665805`"}], "+", 
      RowBox[{"7163.7513333959`", " ", "\[ImaginaryI]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"18.500022121759777`", ",", "0"}], "}"}], ",", "1"}], "}"}]}],
     "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "0.002615185618450866`"}], "+", 
      RowBox[{"7163.751333395899`", " ", "\[ImaginaryI]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"19.181285717025563`", ",", "0"}], "}"}], ",", "1307"}], 
      "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "0.0026151856182750066`"}], "+", 
      RowBox[{"3795.2253886072253`", " ", "\[ImaginaryI]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0.2280709752510167`", ",", "0"}], "}"}], ",", "1173"}], 
      "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "0.002615185617869109`"}], "+", 
      RowBox[{"7163.7513333959`", " ", "\[ImaginaryI]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"18.792720923140887`", ",", "0"}], "}"}], ",", "133"}], 
      "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "0.000060933711541588664`"}], "+", 
      RowBox[{"3795.1285496165683`", " ", "\[ImaginaryI]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"5.507656542492793`", ",", "0"}], "}"}], ",", "1686"}], 
      "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "0.00006093371150373006`"}], "+", 
      RowBox[{"3795.1285496165683`", " ", "\[ImaginaryI]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"4.282060322298011`", ",", "0"}], "}"}], ",", "2130"}], 
      "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "0.00006093371140863946`"}], "+", 
      RowBox[{"3795.1285496165697`", " ", "\[ImaginaryI]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"2.7352290759997024`", ",", "0"}], "}"}], ",", "2"}], "}"}]}],
     "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "0.000060933711379551614`"}], "+", 
      RowBox[{"7163.848172386556`", " ", "\[ImaginaryI]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"18.673161309862778`", ",", "0"}], "}"}], ",", "2"}], "}"}]}],
     "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "6.533193202262755`*^-6"}], "+", 
      RowBox[{"3795.225226363328`", " ", "\[ImaginaryI]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"3.46417212733401`", ",", "0"}], "}"}], ",", "1943"}], 
      "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "6.533193043445351`*^-6"}], "+", 
      RowBox[{"3795.2252263633286`", " ", "\[ImaginaryI]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0.04661517990168865`", ",", "0"}], "}"}], ",", "1824"}], 
      "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "6.533192941082788`*^-6"}], "+", 
      RowBox[{"7163.751495639795`", " ", "\[ImaginaryI]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"18.887155565642338`", ",", "0"}], "}"}], ",", "1"}], "}"}]}],
     "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "6.533192634217144`*^-6"}], "+", 
      RowBox[{"7163.751495639795`", " ", "\[ImaginaryI]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"18.789668138983423`", ",", "0"}], "}"}], ",", "466"}], 
      "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "6.533191993077225`*^-6"}], "+", 
      RowBox[{"7163.751495639796`", " ", "\[ImaginaryI]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"19.17331061098598`", ",", "0"}], "}"}], ",", "3211"}], 
      "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "6.533191882499012`*^-6"}], "+", 
      RowBox[{"7163.751495639795`", " ", "\[ImaginaryI]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"18.49757914832535`", ",", "0"}], "}"}], ",", "8"}], "}"}]}], 
    "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.865406213301964*^9, 3.8654065903826637`*^9},
 CellLabel->
  "Out[190]=",ExpressionUUID->"34c8effb-d0db-4506-abeb-652f787a4498"]
}, Open  ]]
}, Open  ]]
},
WindowSize->{775, 865},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
TaggingRules->Association[
 "CodeFormatter" -> 
  Association[
   "ToolbarState" -> False, "ToolbarAccentColor" -> RGBColor["#2497b7"]], 
  "TryRealOnly" -> False],
FrontEndVersion->"12.3 for Microsoft Windows (64-bit) (2021\:5e747\:670823\
\:65e5)",
StyleDefinitions->"Script.nb",
ExpressionUUID->"a0716716-285c-4593-8630-840feaeeacda"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 151, 2, 24, "Input",ExpressionUUID->"c0be6d88-91ce-472b-98ee-081d4b655703"],
Cell[CellGroupData[{
Cell[734, 26, 165, 3, 53, "Subtitle",ExpressionUUID->"9382a723-e395-4f84-b6f3-c4a7717ac855"],
Cell[902, 31, 385, 11, 105, "Input",ExpressionUUID->"4b43a100-a61b-4c3f-91f8-27f51f7e625d"],
Cell[CellGroupData[{
Cell[1312, 46, 2686, 75, 405, "Input",ExpressionUUID->"274cd695-4084-42d6-b863-aaa5e489b8a0"],
Cell[4001, 123, 309, 7, 26, "Output",ExpressionUUID->"8fc30ac8-8a2d-4025-97d1-ccd7f07c837e"]
}, Open  ]],
Cell[4325, 133, 249, 6, 24, "Input",ExpressionUUID->"9dadc53f-6350-4dab-8144-9d8da911c87b"],
Cell[4577, 141, 105, 1, 24, "Input",ExpressionUUID->"b8fd6ce5-3dc8-4920-9659-d61066903f2a"],
Cell[4685, 144, 487, 14, 24, "Input",ExpressionUUID->"907e61de-fbcb-4e5c-b3de-23f4f95ac86b"],
Cell[5175, 160, 259, 7, 24, "Input",ExpressionUUID->"118b8d52-c275-466b-8c80-fc3fada3a6c3"],
Cell[5437, 169, 589, 16, 24, "Input",ExpressionUUID->"760e8c1d-b848-45b5-b854-9af5c403d9d5"],
Cell[6029, 187, 3607, 103, 325, "Input",ExpressionUUID->"75af1671-c6c6-45f3-8a8f-37d7c4b7210b"],
Cell[9639, 292, 1728, 51, 105, "Input",ExpressionUUID->"518cab49-4b7c-4fce-9ebc-3c3611ba7529"],
Cell[11370, 345, 3708, 102, 245, "Input",ExpressionUUID->"64d3af29-f7ba-4eb2-85eb-c28c7f14a666"],
Cell[15081, 449, 1155, 35, 85, "Input",ExpressionUUID->"1be88d58-a459-4710-bcff-eefa9f7306f9"],
Cell[16239, 486, 6278, 198, 485, "Input",ExpressionUUID->"d54a493d-9a76-4ce1-89fd-57b3332b7040"],
Cell[22520, 686, 2486, 71, 225, "Input",ExpressionUUID->"0cdb4b88-cf2a-49bf-a212-7cc047903551"],
Cell[25009, 759, 1660, 51, 205, "Input",ExpressionUUID->"5baaaaa8-c7df-4831-ab39-2d348c7c366e"],
Cell[26672, 812, 1123, 33, 45, "Input",ExpressionUUID->"086bebd0-82a7-499f-a7d7-6558d7bd056d"],
Cell[27798, 847, 2270, 70, 165, "Input",ExpressionUUID->"13913fa6-c1e3-4993-ab17-fe8be32bd0f5"],
Cell[30071, 919, 300, 8, 24, "Input",ExpressionUUID->"091734af-cee3-446e-b54b-d38c399ef6e7"],
Cell[30374, 929, 5141, 164, 425, "Input",ExpressionUUID->"e566fdb9-58fe-4549-aad2-db3da3e22b2c"],
Cell[35518, 1095, 2769, 86, 145, "Input",ExpressionUUID->"1b1c3a00-6e82-473d-845e-47150d01c2c2"],
Cell[38290, 1183, 117348, 3273, 5745, "Input",ExpressionUUID->"e5cf3707-7ebe-4bb4-b1f8-89ee33b829b4"],
Cell[155641, 4458, 14167, 378, 705, "Input",ExpressionUUID->"d3437e65-90d1-44e9-bafe-8783ea4081a8"],
Cell[169811, 4838, 11355, 301, 625, "Input",ExpressionUUID->"5d25a9e6-09f6-45e6-847f-7bde4611e788"],
Cell[181169, 5141, 412, 11, 24, "Input",ExpressionUUID->"0bdd88b2-830a-40e7-b0ac-ecfd73487f89"],
Cell[181584, 5154, 3595, 109, 225, "Input",ExpressionUUID->"e7bf45b8-3e41-43d7-ad33-4261de6ba4f8"],
Cell[CellGroupData[{
Cell[185204, 5267, 3124, 91, 205, "Input",ExpressionUUID->"8c633502-fcc0-4519-8ac2-aaf686175a47"],
Cell[188331, 5360, 233, 4, 26, "Output",ExpressionUUID->"bb7ac873-6f95-4e57-a8c5-dde0f61925b4"],
Cell[188567, 5366, 234, 4, 26, "Output",ExpressionUUID->"535804c2-9fa2-430f-ab4b-54b2abeaf1ee"],
Cell[188804, 5372, 220, 3, 27, "Output",ExpressionUUID->"47e6def2-c78d-4686-9906-bb259ae66db4"],
Cell[189027, 5377, 222, 3, 27, "Output",ExpressionUUID->"e061cba6-cf23-40b4-aac6-7aa692801cce"],
Cell[189252, 5382, 221, 3, 27, "Output",ExpressionUUID->"4fa03aeb-1cf8-404d-afb6-bb9a9dc40001"]
}, Open  ]],
Cell[189488, 5388, 2514, 75, 265, "Input",ExpressionUUID->"18cad927-33bb-42a2-8958-1d671b627d6e"],
Cell[192005, 5465, 216, 5, 24, "Input",ExpressionUUID->"d8c8cb7e-55d4-4e1d-b3fa-5073e08cf682"],
Cell[192224, 5472, 8514, 217, 505, "Input",ExpressionUUID->"d4136fbb-5218-463c-91fc-ea7893b1a62f"],
Cell[200741, 5691, 293, 8, 24, "Input",ExpressionUUID->"3bc3ea83-73cd-41fa-a733-88c5f494ef4d"],
Cell[201037, 5701, 212, 5, 24, "Input",ExpressionUUID->"222448d6-0cf7-4ea5-97fb-0ce7595a4cea"],
Cell[201252, 5708, 4803, 130, 545, "Input",ExpressionUUID->"759a5652-1351-4113-af2d-c1ff14a7b1e1"],
Cell[206058, 5840, 2447, 67, 165, "Input",ExpressionUUID->"23e8f2d7-7609-4f2b-8988-3d8975e20b03"],
Cell[208508, 5909, 5434, 148, 285, "Input",ExpressionUUID->"65bfdc02-34da-4a3d-8784-1ac9eaab75e2"],
Cell[213945, 6059, 393, 11, 24, "Input",ExpressionUUID->"de60f192-8456-4b73-9450-8d7d27c36359"],
Cell[214341, 6072, 5662, 144, 425, "Input",ExpressionUUID->"2fce6f6b-1414-4167-8f43-2008ac6e8e0e"],
Cell[CellGroupData[{
Cell[220028, 6220, 588, 17, 24, "Input",ExpressionUUID->"1fb718a6-2a47-44f1-bad3-1ffc09a97897"],
Cell[220619, 6239, 753, 21, 26, "Output",ExpressionUUID->"2af803eb-4796-4170-9d4e-bfe29aab8954"]
}, Open  ]],
Cell[221387, 6263, 241, 8, 24, "Input",ExpressionUUID->"971091e0-9744-4352-b858-047d4b0a353d"],
Cell[221631, 6273, 158, 4, 36, "Code",ExpressionUUID->"7d57ba27-9378-4e0a-8c71-87b9f988c871"],
Cell[221792, 6279, 128, 3, 36, "Code",ExpressionUUID->"5c83944f-8308-4dfc-93fd-1bce2cc2416b"],
Cell[CellGroupData[{
Cell[221945, 6286, 185, 5, 36, "Code",ExpressionUUID->"a566705f-cba7-40cd-8a6b-15fb6a71d16d"],
Cell[222133, 6293, 180, 3, 26, "Output",ExpressionUUID->"5958ccf9-b7d6-4293-9658-d4e0f60a7413"]
}, Open  ]],
Cell[CellGroupData[{
Cell[222350, 6301, 184, 5, 36, "Code",ExpressionUUID->"a9400f01-1057-4a61-90d5-f00c37eb63d2"],
Cell[222537, 6308, 421, 9, 26, "Output",ExpressionUUID->"b7388445-56df-4ec2-8c99-771a55b80b99"]
}, Open  ]],
Cell[CellGroupData[{
Cell[222995, 6322, 214, 6, 36, "Code",ExpressionUUID->"7943d244-c051-4e2b-a3c2-f609e3f83ec2"],
Cell[223212, 6330, 1209, 27, 72, "Output",ExpressionUUID->"4353e853-e06e-4ff6-9cf7-884564d1753f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[224458, 6362, 598, 21, 65, "Input",ExpressionUUID->"02df2043-0ebb-42e1-be72-c5b8db3885cf"],
Cell[225059, 6385, 1778, 49, 181, "Output",ExpressionUUID->"52be7d62-1023-423a-9e19-cb69393b53fd"],
Cell[226840, 6436, 1001, 31, 157, "Output",ExpressionUUID->"d929c79f-efee-4174-9983-c309408f5fd9"],
Cell[227844, 6469, 899, 27, 144, "Output",ExpressionUUID->"0df69b8f-3a1e-4e5a-a6c8-9c2ee7be4e12"]
}, Open  ]],
Cell[228758, 6499, 4208, 114, 417, "Code",ExpressionUUID->"ef6f21d5-a658-42f2-9b1d-37c2858cf2c1"],
Cell[232969, 6615, 4847, 132, 457, "Code",ExpressionUUID->"179df937-666f-45c5-a5fd-9b10ee044838"],
Cell[CellGroupData[{
Cell[237841, 6751, 141, 3, 36, "Code",ExpressionUUID->"9d5ad791-fa90-4481-a159-03613178273b"],
Cell[237985, 6756, 183, 3, 26, "Output",ExpressionUUID->"e815c0b5-755b-4874-87c0-e92537322d1b"]
}, Open  ]],
Cell[238183, 6762, 306, 10, 36, "Code",ExpressionUUID->"9b04d6cb-5662-4bb3-a935-5cca510f4768"],
Cell[CellGroupData[{
Cell[238514, 6776, 620, 20, 97, "Code",ExpressionUUID->"ff9a90dc-7af4-43b8-af14-d3dc27f3a566"],
Cell[239137, 6798, 479, 10, 52, "Output",ExpressionUUID->"e30324c7-8a62-4387-a7f7-03a10a9abe6f"],
Cell[239619, 6810, 444, 9, 26, "Output",ExpressionUUID->"44e04fdc-602e-4d22-8960-3b1a7f9244d1"],
Cell[240066, 6821, 1234, 29, 72, "Output",ExpressionUUID->"c69f51cb-75c1-4a49-9096-89abbaf1ff2f"],
Cell[241303, 6852, 1211, 27, 72, "Output",ExpressionUUID->"d9387573-a5cc-44f2-a639-48b56be2b538"]
}, Open  ]],
Cell[CellGroupData[{
Cell[242551, 6884, 215, 5, 36, "Code",ExpressionUUID->"79e9874d-b4ef-4169-a41d-94f1e1f08d87"],
Cell[242769, 6891, 2089, 41, 157, "Output",ExpressionUUID->"725987c7-846c-4c95-847d-82899acfe679"]
}, Open  ]],
Cell[CellGroupData[{
Cell[244895, 6937, 223, 6, 36, "Code",ExpressionUUID->"2ae215d8-eea6-4feb-9b84-58e946931b72"],
Cell[245121, 6945, 293, 6, 27, "Output",ExpressionUUID->"447f99b2-df1b-4941-a304-3d721c34c255"]
}, Open  ]],
Cell[245429, 6954, 281, 9, 36, "Code",ExpressionUUID->"3dedb6c7-44d9-42a4-a3eb-e8939da2b4fd"],
Cell[CellGroupData[{
Cell[245735, 6967, 196, 5, 36, "Code",ExpressionUUID->"279f90b2-d28b-4fc5-926b-27425271be4f"],
Cell[245934, 6974, 201, 3, 27, "Output",ExpressionUUID->"564d909f-2d84-41e4-9aa7-39611895f61b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[246172, 6982, 195, 5, 36, "Code",ExpressionUUID->"d7fb74c8-b58c-4c16-99b9-8b4624b31948"],
Cell[246370, 6989, 282, 5, 27, "Output",ExpressionUUID->"fb62da12-158f-4fff-ba3b-e467e6d74e28"]
}, Open  ]],
Cell[246667, 6997, 6915, 179, 557, "Code",ExpressionUUID->"5f8d43df-616f-4ecd-a794-238b8233f406"],
Cell[253585, 7178, 5384, 140, 637, "Code",ExpressionUUID->"ab634ea2-2ac2-49de-8536-92d4de0148b0"],
Cell[258972, 7320, 6412, 168, 1057, "Code",ExpressionUUID->"643bf3e3-b42a-4b30-b9a7-9e8f9091272e"],
Cell[265387, 7490, 388, 12, 36, "Code",ExpressionUUID->"c978e274-d481-43e1-ad39-80c2d59bec81"],
Cell[265778, 7504, 576, 17, 36, "Code",ExpressionUUID->"e3e425e6-e342-4113-a146-cee54948f13d"],
Cell[266357, 7523, 189, 5, 36, "Code",ExpressionUUID->"6d750c9b-b803-4a66-9741-74e7cd2d3131"],
Cell[266549, 7530, 2256, 59, 297, "Code",ExpressionUUID->"40077764-a9d2-4bbb-a5dd-51a11d5a003b"],
Cell[268808, 7591, 264, 7, 36, "Code",ExpressionUUID->"6aae33d7-765d-4e07-82b1-c71598534925"],
Cell[269075, 7600, 7739, 213, 797, "Code",ExpressionUUID->"99443484-b807-48ca-b47e-f92429c934f7"],
Cell[276817, 7815, 5517, 158, 577, "Code",ExpressionUUID->"7c6f80df-f085-4d2f-9d07-1901ecb2aa5b"],
Cell[282337, 7975, 4156, 119, 377, "Code",ExpressionUUID->"3c0638d1-2faa-4959-82c0-2b044e8d2599"],
Cell[286496, 8096, 529, 17, 36, "Code",ExpressionUUID->"8cccdeed-eb31-4266-99e0-94ccba45eb36"],
Cell[287028, 8115, 797, 24, 117, "Code",ExpressionUUID->"7c94f7c8-733c-4de2-ad6c-794ded7fbf09"],
Cell[287828, 8141, 802, 25, 36, "Code",ExpressionUUID->"3b1208e3-11a0-435a-a6e9-4d1a950af866"],
Cell[CellGroupData[{
Cell[288655, 8170, 1598, 51, 157, "Code",ExpressionUUID->"8ce35242-8ec0-4865-a617-962bfea278f8"],
Cell[290256, 8223, 178, 3, 26, "Output",ExpressionUUID->"c4e44505-3b07-45f0-a292-7c38d322c8cb"]
}, Open  ]],
Cell[290449, 8229, 293, 9, 36, "Code",ExpressionUUID->"54a48e34-a2cf-40e5-aa0e-6473d6ba6489"]
}, Open  ]],
Cell[CellGroupData[{
Cell[290779, 8243, 160, 3, 53, "Subtitle",ExpressionUUID->"f3f44218-927e-4b63-839c-ff2bdb3e1b2a"],
Cell[290942, 8248, 160, 4, 36, "Code",ExpressionUUID->"c47ff14f-f7fd-42ca-ad9d-7394b2e2eef2"],
Cell[291105, 8254, 288, 6, 36, "Code",ExpressionUUID->"05134919-747d-44be-b7b6-754e1df14262"],
Cell[291396, 8262, 246, 6, 57, "Code",ExpressionUUID->"1dfba548-2811-4095-9cd0-302ba949b80a"],
Cell[291645, 8270, 511, 14, 77, "Code",ExpressionUUID->"6e944e91-f9b3-4e19-b058-e901754ff69e"],
Cell[292159, 8286, 463, 12, 57, "Code",ExpressionUUID->"08fc5446-4897-4b11-a649-1d00367831f2"],
Cell[CellGroupData[{
Cell[292647, 8302, 240, 5, 77, "Code",ExpressionUUID->"b4c16b92-b473-4051-bee0-81102ee1ed1d"],
Cell[292890, 8309, 199, 4, 26, "Output",ExpressionUUID->"e4f796de-6fb7-49df-82ec-d04b9280d0b9"],
Cell[293092, 8315, 199, 4, 26, "Output",ExpressionUUID->"8a9241d4-3e7f-42d2-a60f-2d4a15f1a21f"],
Cell[293294, 8321, 199, 4, 26, "Output",ExpressionUUID->"bcdfe7f7-e717-49f5-929c-bdd986e3071e"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[293542, 8331, 162, 3, 53, "Subtitle",ExpressionUUID->"9965e6fa-d4d2-4d6b-abad-5d73de283ddd"],
Cell[293707, 8336, 292, 9, 36, "Code",ExpressionUUID->"b5f98d52-0dc1-48fd-8fb6-8d9c3be473ca"],
Cell[294002, 8347, 15066, 415, 437, "Code",ExpressionUUID->"a0e08f08-71ce-4910-92f2-187561122ddf"],
Cell[309071, 8764, 12504, 326, 317, "Code",ExpressionUUID->"2854e53b-d415-4a66-9005-d51101293a22"],
Cell[321578, 9092, 1762, 53, 117, "Code",ExpressionUUID->"b7668642-ef8f-4555-8a06-fa2e4385c42e"],
Cell[323343, 9147, 1752, 53, 117, "Code",ExpressionUUID->"b018ab15-bc6c-46a1-b0f6-06259a0a88b8"],
Cell[325098, 9202, 855, 23, 36, "Code",ExpressionUUID->"b225b85b-b932-4da2-96e3-199e508ef394"],
Cell[325956, 9227, 12727, 330, 317, "Code",ExpressionUUID->"6a45a2b8-5491-4412-8194-46a2b00bcf07"],
Cell[338686, 9559, 13099, 340, 337, "Code",ExpressionUUID->"46dc37bc-66f6-48ed-b027-e070a1260d22"],
Cell[351788, 9901, 13107, 340, 337, "Code",ExpressionUUID->"09b61c9c-c6df-429b-b45f-0cd43ff13897"],
Cell[364898, 10243, 1762, 48, 217, "Code",ExpressionUUID->"93452714-bfcf-4b32-b38a-2f098c12e0cb"],
Cell[366663, 10293, 2442, 66, 297, "Code",ExpressionUUID->"2defaa6d-b7b6-46df-b4f8-afe18f374352"],
Cell[369108, 10361, 41706, 1124, 1497, "Code",ExpressionUUID->"4964353c-a74a-4642-b03d-5a4ac8f052d6"],
Cell[410817, 11487, 42617, 1150, 1437, "Code",ExpressionUUID->"eb64ada2-6989-41ab-acbe-5ab1d9a04e17"],
Cell[453437, 12639, 26837, 723, 757, "Code",ExpressionUUID->"fc3f707b-4dc2-4afb-bcda-fa93ba45df40"]
}, Open  ]],
Cell[CellGroupData[{
Cell[480311, 13367, 163, 3, 53, "Subtitle",ExpressionUUID->"7a1406bb-8c7d-406b-9201-049fee89c70e"],
Cell[480477, 13372, 635, 16, 57, "Code",ExpressionUUID->"399b8eb7-7798-40e5-bc71-9fbb6237d852"],
Cell[CellGroupData[{
Cell[481137, 13392, 610, 16, 57, "Code",ExpressionUUID->"541d63ef-4b3e-4d74-8246-4c5defa9a2ae"],
Cell[481750, 13410, 1741, 26, 167, "Output",ExpressionUUID->"d9090d01-f4f1-49cc-945a-b5838f08bac7"]
}, Open  ]],
Cell[483506, 13439, 256, 7, 36, "Code",ExpressionUUID->"68c4cdf2-781e-4d26-95aa-3b8d1f83b704"],
Cell[483765, 13448, 278, 9, 36, "Code",ExpressionUUID->"d0fd2549-286e-4715-81e3-339ee2e07edc"],
Cell[CellGroupData[{
Cell[484068, 13461, 437, 12, 57, "Code",ExpressionUUID->"9d82d481-ec2a-435d-98ea-8f3ed54854c3"],
Cell[484508, 13475, 1861, 28, 187, "Output",ExpressionUUID->"f141ec9a-595e-4902-8a8f-1b7ab54421bc"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[486418, 13509, 177, 3, 53, "Subtitle",ExpressionUUID->"0dfedc06-5cd3-41d8-9b2b-f0723ca03ee3"],
Cell[486598, 13514, 399, 10, 36, "Code",ExpressionUUID->"40e93770-8021-4ad4-9338-10f360c4edcc"],
Cell[487000, 13526, 247, 7, 36, "Code",ExpressionUUID->"75ecb532-2313-4f6a-aace-4217a4d21d79"],
Cell[487250, 13535, 245, 7, 36, "Code",ExpressionUUID->"95399412-00bd-43b8-ab35-559279e9a378"],
Cell[487498, 13544, 1067, 33, 36, "Code",ExpressionUUID->"1fc74688-bf8f-4499-8cc2-4ae9b2383176"],
Cell[488568, 13579, 1022, 31, 57, "Code",ExpressionUUID->"988e4506-fc94-4b30-8bba-d77077ace683"],
Cell[489593, 13612, 361, 12, 36, "Code",ExpressionUUID->"9a4a8615-4514-4de8-a2f0-9f4147d24bae"],
Cell[CellGroupData[{
Cell[489979, 13628, 442, 10, 57, "Code",ExpressionUUID->"5387def8-2b8f-47a3-bf1e-f4e359810706"],
Cell[490424, 13640, 178, 3, 26, "Output",ExpressionUUID->"46d6e981-0cb5-4e10-be91-c116cf4c082b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[490639, 13648, 617, 16, 57, "Code",ExpressionUUID->"95a841dd-c994-4ce8-a843-667eef21d304"],
Cell[491259, 13666, 21711, 685, 821, "Output",ExpressionUUID->"34c8effb-d0db-4506-abeb-652f787a4498"]
}, Open  ]]
}, Open  ]]
}
]
*)

